From 312494f25f6295e41144ce54796aa5c33f34722f Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Sun, 17 Jan 2010 14:47:30 +0000
Subject: [PATCH] fix warnings

---
 tests/runtests.pl | 18 +++++++++++-------
 1 file 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++;
-- 
2.40.0