X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FTEST;h=0b674af3e7ca3a50cca70c2dcedaa8dfab94d5cf;hb=44e147dea8896d18032c55a14e77f24dabd1a153;hp=25b8a395bacc6ed4b3a2ab0e0be5c83e7c96d6dd;hpb=e824fb2c869ac05c8b4bf94a03f1e1121a0963c7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/TEST b/t/TEST
index 25b8a39..0b674af 100755
--- a/t/TEST
+++ b/t/TEST
@@ -43,6 +43,9 @@ TESTING COMPILER
 --------------------------------------------------------------------------------
 EOT
 
+    $ENV{PERLCC_TIMEOUT} = 120 
+          if ($type eq 'compile' && !$ENV{PERLCC_TIMEOUT});
+
     $bad = 0;
     $good = 0;
     $total = @tests;
@@ -150,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";
 	}