aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtests/runtests.pl18
1 files changed, 11 insertions, 7 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 2eda3915d..f315e4412 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3181,12 +3181,16 @@ sub runtimestats {
$timevrfyend{$testnum} - $timeprepini{$testnum}, $testnum);
}
}
- @timesrvr = sort { $b <=> $a } @timesrvr;
- @timeprep = sort { $b <=> $a } @timeprep;
- @timetool = sort { $b <=> $a } @timetool;
- @timelock = sort { $b <=> $a } @timelock;
- @timevrfy = sort { $b <=> $a } @timevrfy;
- @timetest = sort { $b <=> $a } @timetest;
+
+ {
+ no warnings 'numeric';
+ @timesrvr = sort { $b <=> $a } @timesrvr;
+ @timeprep = sort { $b <=> $a } @timeprep;
+ @timetool = sort { $b <=> $a } @timetool;
+ @timelock = sort { $b <=> $a } @timelock;
+ @timevrfy = sort { $b <=> $a } @timevrfy;
+ @timetest = sort { $b <=> $a } @timetest;
+ }
logmsg "Spent ". sprintf("%08.3f ", $timesrvrtot) .
"seconds starting and verifying test harness servers.\n";
@@ -3738,7 +3742,7 @@ if($skipped) {
my $c=0;
for(0 .. scalar @teststat) {
my $t = $_;
- if($teststat[$_] eq $r) {
+ if($teststat[$_] && ($teststat[$_] eq $r)) {
logmsg ", " if($c);
logmsg $_;
$c++;