X-Git-Url: https://git.rohieb.name/openwrt.git/blobdiff_plain/503788e306fdadeedba5392959bcdf31ccd74dd8..aa10218a5017b9e462c417bf8d334f23fa99f303:/scripts/timestamp.pl?ds=sidebyside diff --git a/scripts/timestamp.pl b/scripts/timestamp.pl index a3aa50cb0..90d1fa799 100755 --- a/scripts/timestamp.pl +++ b/scripts/timestamp.pl @@ -13,13 +13,12 @@ sub get_ts($$) { my $options = shift; my $ts = 0; my $fn = ""; - open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |"; + open FIND, "find $path -type f -and -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |"; while () { 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; @@ -37,15 +36,18 @@ while (@ARGV > 0) { my $path = shift @ARGV; if ($path =~ /^-x/) { my $str = shift @ARGV; - $options{"findopts"} .= " -and -not -path \\*".$str."\\*" + $options{"findopts"} .= " -and -not -path '".$str."'" } elsif ($path =~ /^-f/) { $options{"findopts"} .= " -follow"; + } elsif ($path =~ /^-n/) { + my $arg = $ARGV[0]; + $options{$path} = $arg; } elsif ($path =~ /^-/) { $options{$path} = 1; } else { my ($tmp, $fname) = get_ts($path, $options{"findopts"}); if ($tmp > $ts) { - if ($options{'-f'}) { + if ($options{'-F'}) { $n = $fname; } else { $n = $path; @@ -55,7 +57,9 @@ while (@ARGV > 0) { } } -if ($options{"-p"}) { +if ($options{"-n"}) { + exit ($n eq $options{"-n"} ? 0 : 1); +} elsif ($options{"-p"}) { print "$n\n"; } elsif ($options{"-t"}) { print "$ts\n";