diff options
-rw-r--r-- | ivybanner | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -383,7 +383,9 @@ sub demosframe { my @file_liste = grep /:/, readdir PREFIX; closedir PREFIX; my @cleanfilelist = (); + @file_liste = sort { (stat("$path/$a"))[10] <=> (stat("$path/$b"))[10] } @file_liste; foreach my $file (@file_liste) { + print "file=$file mtime=", (stat("$path/$file"))[10] ,"\n"; next unless (-f $path."/".$file); next if ($file =~ /\~$/); next if ($file =~ /^\./); |