Integrate mainline

[p5sagit/p5-mst-13.2.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 41390c0..ef3d312 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -24,7 +24,7 @@ $ENV{EMXSHELL} = 'sh';        # For OS/2
 
 if ($#ARGV == -1) {
     @ARGV = split(/[ \n]/,
-      `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t pod/*.t pragma/*.t; echo lib/*.t`);
+      `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t`);
 }
 
 %infinite = ( 'comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 ); 
@@ -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;