From: Yang Tse <yangsita@gmail.com>
Date: Sun, 17 Jan 2010 14:47:30 +0000 (+0000)
Subject: fix warnings
X-Git-Tag: curl-7_20_0~138
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=312494f25f6295e41144ce54796aa5c33f34722f;p=thirdparty%2Fcurl.git

fix warnings
---

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 2eda3915d7..f315e44126 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++;