Somehow MPE/iX managed to get

"18/0Illegal division by zero at ../lib/Test/Harness.pm line 921."

p4raw-id: //depot/perl@19766

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 4c4576a..7534a34 100644 (file)
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -918,13 +918,23 @@ sub canonfailed ($@) {
     }
 
     push @result, "\tFailed $failed/$max tests, ";
-    push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
+    if ($max) {
+       push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
+    } else {
+       push @result, "?% okay";
+    }
     my $ender = 's' x ($skipped > 1);
     my $good = $max - $failed - $skipped;
-    my $goodper = sprintf("%.2f",100*($good/$max));
-    push @result, " (less $skipped skipped test$ender: $good okay, ".
-                  "$goodper%)"
-         if $skipped;
+    if ($skipped) {
+       my $skipmsg = " (less $skipped skipped test$ender: $good okay, ";
+       if ($max) {
+           my $goodper = sprintf("%.2f",100*($good/$max));
+           $skipmsg .= "$goodper%)";
+       } else {
+           $skipmsg .= "?%)";
+       }
+       push @result, $skipmsg;
+    }
     push @result, "\n";
     my $txt = join "", @result;
     ($txt, $canon);