add -f option to timestamp.pl (follow symlinks)

SVN-Revision: 4457
This commit is contained in:
Felix Fietkau 2006-08-04 21:42:29 +00:00
parent a737dbbcb6
commit 5a79463894

View file

@ -37,11 +37,13 @@ while (@ARGV > 0) {
my $path = shift @ARGV; my $path = shift @ARGV;
if ($path =~ /^-x/) { if ($path =~ /^-x/) {
my $str = shift @ARGV; my $str = shift @ARGV;
$options{"-x"} .= " -and -not -path \\*".$str."\\*" $options{"findopts"} .= " -and -not -path \\*".$str."\\*"
} elsif ($path =~ /^-f/) {
$options{"findopts"} .= " -follow";
} elsif ($path =~ /^-/) { } elsif ($path =~ /^-/) {
$options{$path} = 1; $options{$path} = 1;
} else { } else {
my ($tmp, $fname) = get_ts($path, $options{"-x"}); my ($tmp, $fname) = get_ts($path, $options{"findopts"});
if ($tmp > $ts) { if ($tmp > $ts) {
if ($options{'-f'}) { if ($options{'-f'}) {
$n = $fname; $n = $fname;