while (<FIND>) {
chomp;
my $file = $_;
while (<FIND>) {
chomp;
my $file = $_;
- open FILE, "<$file";
- my @stat = stat FILE;
- close FILE;
+ next if -l $file;
+ my @stat = stat $file;
if ($stat[9] > $ts) {
$ts = $stat[9];
$fn = $file;
if ($stat[9] > $ts) {
$ts = $stat[9];
$fn = $file;
This page took 0.024999 seconds and 4 git commands to generate.