equal
deleted
inserted
replaced
38 next if ( $sDir eq "." or $sDir eq ".." ); |
38 next if ( $sDir eq "." or $sDir eq ".." ); |
39 next if ( ! -d "$sJOB_BASE_DIR\\$sDir" ); |
39 next if ( ! -d "$sJOB_BASE_DIR\\$sDir" ); |
40 |
40 |
41 #print "--- $sDir\n"; |
41 #print "--- $sDir\n"; |
42 |
42 |
43 if ( $sDir =~ /^([^.]+)\.(\d+)/ ) |
43 if ( $sDir =~ /^([^.]+)\.T?(\d+)/ ) |
44 { |
44 { |
45 my $sBaseName = $1; |
45 my $sBaseName = $1; |
46 my $sBuildNumber = $2; |
46 my $sBuildNumber = $2; |
47 |
47 |
48 my $nTs = (stat("$sJOB_BASE_DIR\\$sDir"))[9]; # modified time |
48 my $nTs = (stat("$sJOB_BASE_DIR\\$sDir"))[9]; # modified time |