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
This commit is contained in:
		| @@ -13,14 +13,15 @@ sub get_ts($$) { | |||||||
| 	my $options = shift; | 	my $options = shift; | ||||||
| 	my $ts = 0; | 	my $ts = 0; | ||||||
| 	my $fn = ""; | 	my $fn = ""; | ||||||
|  | 	$path .= "/" if( -d $path); | ||||||
| 	open FIND, "find $path -type f -and -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 (<FIND>) { | 	while (<FIND>) { | ||||||
| 		chomp; | 		chomp; | ||||||
| 		my $file = $_; | 		my $file = $_; | ||||||
| 		next if -l $file; | 		next if -l $file; | ||||||
| 		my @stat = stat $file; | 		my $mt = (stat $file)[9]; | ||||||
| 		if ($stat[9] > $ts) { | 		if ($mt > $ts) { | ||||||
| 			$ts = $stat[9]; | 			$ts = $mt; | ||||||
| 			$fn = $file; | 			$fn = $file; | ||||||
| 		} | 		} | ||||||
| 	} | 	} | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user
	 Ralph Hempel
					Ralph Hempel