cgit.sxemacs.org Git - packages/blob - xemacs-packages/mew/mew/OS2/utime.cmd.in

   1 extproc @PERL@ -Sx
   2 #! @PERL@
   3
   4   if (@ARGV < 1) {
   5       die "usage: utime file1 .. \n";
   6   }
   7
   8   $now = time();
   9   utime($now, $now, @ARGV);
  10