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;
|
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;
|
||||||
|
|
Loading…
Reference in a new issue