From ba1398cfaf53c91e3723ea35a8c3995b73c2a25e Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 17 Dec 1999 06:16:49 +0000 Subject: [PATCH] test harness tweak from Hans Mulder p4raw-id: //depot/perl@4689 --- t/TEST | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/TEST b/t/TEST index 1f9190d..0b674af 100755 --- a/t/TEST +++ b/t/TEST @@ -153,7 +153,7 @@ EOT } } else { - $pct = sprintf("%.2f", ($files - $bad) / $files * 100); + $pct = $files ? sprintf("%.2f", ($files - $bad) / $files * 100) : "0.00"; if ($bad == 1) { warn "Failed 1 test script out of $files, $pct% okay.\n"; } -- 1.8.3.1