whichsys.c32: execute specific command, based on Syslinux bootloader variant

[profile/ivi/syslinux.git] / now.pl

diff --git a/now.pl b/now.pl
index 0626779..a3b5a79 100644 (file)
--- a/now.pl
+++ b/now.pl
@@ -1,15 +1,20 @@
 #!/usr/bin/perl
-#ident "$Id$"
 #
 # Print the time (possibly the mtime of a file) as a hexadecimal integer
+# If more than one file, print the mtime of the *newest* file.
 #
 
-($file) = @ARGV;
-if ( defined($file) ) {
+undef $now;
+
+foreach $file ( @ARGV ) {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
      $ctime,$blksize,$blocks) = stat($file);
-    $now = $mtime;
-} else {
+    if ( !defined($now) || $now < $mtime ) {
+       $now = $mtime;
+    }
+}
+
+if ( !defined($now) ) {
     $now = time;
 }