X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FUTEST;h=9c1dfc0d800aa09ed88967373991e059233c181c;hb=a5853b9e86d38374fad201966e6795c310045564;hp=2850f765b72756dc560acc472dc04905e0b8310a;hpb=ef712cf74fdf150057b2ffb17983e6f0cc1fd914;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/UTEST b/t/UTEST
index 2850f76..9c1dfc0 100755
--- a/t/UTEST
+++ b/t/UTEST
@@ -55,8 +55,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;
@@ -81,7 +81,10 @@ EOT
 	    if ($type eq 'perl') {
 		open(RESULTS, "./$test |") || (print "can't run.\n"); }
 	    else { 
-		open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test -run -verbose dcf -log ../compilelog |") or print "can't compile.\n";
+        open(RESULTS, "./perl -I../lib ../utils/perlcc -o ./$test.plc ./$test "
+                 ." && ./$test.plc |")
+        or print "can't compile.\n";
+        unlink "./$test.plc";
 	    }
 	}
 	else {