add -f option to timestamp.pl (follow symlinks)
SVN-Revision: 4457
This commit is contained in:
parent
a737dbbcb6
commit
5a79463894
1 changed files with 4 additions and 2 deletions
|
@ -37,11 +37,13 @@ while (@ARGV > 0) {
|
|||
my $path = shift @ARGV;
|
||||
if ($path =~ /^-x/) {
|
||||
my $str = shift @ARGV;
|
||||
$options{"-x"} .= " -and -not -path \\*".$str."\\*"
|
||||
$options{"findopts"} .= " -and -not -path \\*".$str."\\*"
|
||||
} elsif ($path =~ /^-f/) {
|
||||
$options{"findopts"} .= " -follow";
|
||||
} elsif ($path =~ /^-/) {
|
||||
$options{$path} = 1;
|
||||
} else {
|
||||
my ($tmp, $fname) = get_ts($path, $options{"-x"});
|
||||
my ($tmp, $fname) = get_ts($path, $options{"findopts"});
|
||||
if ($tmp > $ts) {
|
||||
if ($options{'-f'}) {
|
||||
$n = $fname;
|
||||
|
|
Loading…
Reference in a new issue