fix warnings

This commit is contained in:
Yang Tse 2010-01-17 14:47:30 +00:00
parent 8d97b33347
commit 312494f25f

View File

@ -3181,12 +3181,16 @@ sub runtimestats {
$timevrfyend{$testnum} - $timeprepini{$testnum}, $testnum); $timevrfyend{$testnum} - $timeprepini{$testnum}, $testnum);
} }
} }
{
no warnings 'numeric';
@timesrvr = sort { $b <=> $a } @timesrvr; @timesrvr = sort { $b <=> $a } @timesrvr;
@timeprep = sort { $b <=> $a } @timeprep; @timeprep = sort { $b <=> $a } @timeprep;
@timetool = sort { $b <=> $a } @timetool; @timetool = sort { $b <=> $a } @timetool;
@timelock = sort { $b <=> $a } @timelock; @timelock = sort { $b <=> $a } @timelock;
@timevrfy = sort { $b <=> $a } @timevrfy; @timevrfy = sort { $b <=> $a } @timevrfy;
@timetest = sort { $b <=> $a } @timetest; @timetest = sort { $b <=> $a } @timetest;
}
logmsg "Spent ". sprintf("%08.3f ", $timesrvrtot) . logmsg "Spent ". sprintf("%08.3f ", $timesrvrtot) .
"seconds starting and verifying test harness servers.\n"; "seconds starting and verifying test harness servers.\n";
@ -3738,7 +3742,7 @@ if($skipped) {
my $c=0; my $c=0;
for(0 .. scalar @teststat) { for(0 .. scalar @teststat) {
my $t = $_; my $t = $_;
if($teststat[$_] eq $r) { if($teststat[$_] && ($teststat[$_] eq $r)) {
logmsg ", " if($c); logmsg ", " if($c);
logmsg $_; logmsg $_;
$c++; $c++;