X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FTEST;h=ef3d312a46f36f9fea263ee1148af815e7b63b9d;hb=7bbb0251073a77c17bc1102da053cd50c26c0e81;hp=69cf0c6e92fc584ef3609f452aa7f3484026f1ea;hpb=ef712cf74fdf150057b2ffb17983e6f0cc1fd914;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/TEST b/t/TEST
index 69cf0c6..ef3d312 100755
--- a/t/TEST
+++ b/t/TEST
@@ -43,8 +43,8 @@ TESTING COMPILER
 --------------------------------------------------------------------------------
 EOT
 
-    $ENV{COMPILE_TIMEOUT} = 120 
-          if ($type eq 'compile' && !$ENV{COMPILE_TIMEOUT});
+    $ENV{PERLCC_TIMEOUT} = 120 
+          if ($type eq 'compile' && !$ENV{PERLCC_TIMEOUT});
 
     $bad = 0;
     $good = 0;
@@ -90,9 +90,10 @@ EOT
 	    open(RESULTS,"./perl$switch $test |") or print "can't run.\n";
 	}
 	else {
-	    open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test "
-	    		 ."-run -verbose dcf -log ../compilelog |")
+	    open(RESULTS, "./perl -I../lib ../utils/perlcc -o ./$test.plc ./$test "
+	    		 ." && ./$test.plc |")
 		or print "can't compile.\n";
+        unlink "./$test.plc";
 	}
 
 	$ok = 0;
@@ -153,7 +154,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";
 	}