summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2006-06-19 10:10:46 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2006-06-19 10:10:46 +0000
commit9912f90bd687c72c62559c6e9eb548f7479d7fc6 (patch)
tree4e971d7085b95048eb5c062b40f528113e9c683b
parentfd3df7f8b38116c60f0f3605d2d2232f65aa4eb0 (diff)
downloadATCD-9912f90bd687c72c62559c6e9eb548f7479d7fc6.tar.gz
*** empty log message ***
-rwxr-xr-xbin/diff-builds.pl9
1 files changed, 5 insertions, 4 deletions
diff --git a/bin/diff-builds.pl b/bin/diff-builds.pl
index 11a8bd1ba40..d1932681e4d 100755
--- a/bin/diff-builds.pl
+++ b/bin/diff-builds.pl
@@ -92,9 +92,10 @@ sub load_failed_tests_list ($$)
print "Build times for $file on $date are "
. join (', ', @timestamps) . "\n" unless !$debugging;
- die "No builds for $file on $date. The closest earlier date is "
- . find_closest_earlier ($file, $date) . "\n"
- unless ($#timestamps > -1);
+ if ($#timestamps == -1) {
+ print "No builds for $file on $date. The closest earlier date is "
+ . find_closest_earlier ($file, $date) . "\n\n"
+ }
my $fullfile = $file .'_' . $date . '_' . $timestamps[0];
my ($fh, $tmpfile) = tempfile ($fullfile . ".XXXXXX", UNLINK => 1);
@@ -105,7 +106,7 @@ sub load_failed_tests_list ($$)
system ("wget " . $verbose . " \'" .$teststaturl
. $fullfile . ".log\' -O - | sort >\'" . $tmpfile . '\'');
close ($fh);
-
+
return $tmpfile;
}