diff options
author | Ralph Hempel <ralph.hempel@lantiq.com> | 2009-03-02 17:38:08 +0000 |
---|---|---|
committer | Ralph Hempel <ralph.hempel@lantiq.com> | 2009-03-02 17:38:08 +0000 |
commit | f9d0fb8a16f4819b7419454ef3adc11fef4cb922 (patch) | |
tree | 4bb33d10cb0a1a3e9d03b92e51dfeeaa6d5c0840 /scripts/timestamp.pl | |
parent | 89181213dceb491a53d9a848e155f628d81e3c8b (diff) | |
download | mtk-20170518-f9d0fb8a16f4819b7419454ef3adc11fef4cb922.zip mtk-20170518-f9d0fb8a16f4819b7419454ef3adc11fef4cb922.tar.gz mtk-20170518-f9d0fb8a16f4819b7419454ef3adc11fef4cb922.tar.bz2 |
ensure that the timestamp script will follow the path even if it is link ( in our case the build directory might be a link to a ClearCase dynamic view )
SVN-Revision: 14728
Diffstat (limited to 'scripts/timestamp.pl')
-rwxr-xr-x | scripts/timestamp.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/scripts/timestamp.pl b/scripts/timestamp.pl index b2d68a1..3bf0571 100755 --- a/scripts/timestamp.pl +++ b/scripts/timestamp.pl @@ -13,14 +13,15 @@ sub get_ts($$) { my $options = shift; my $ts = 0; my $fn = ""; + $path .= "/" if( -d $path); open FIND, "find $path -type f -and -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |"; while (<FIND>) { chomp; my $file = $_; next if -l $file; - my @stat = stat $file; - if ($stat[9] > $ts) { - $ts = $stat[9]; + my $mt = (stat $file)[9]; + if ($mt > $ts) { + $ts = $mt; $fn = $file; } } |