diff options
| author | Ed Peschko <epeschko@den-mdev1> | 1998-04-29 15:02:36 -0600 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-14 15:56:53 +0000 |
| commit | 52cebf5efc9883c776f89be24e988c47ceba2a42 (patch) | |
| tree | 08117e31b521c13d7549587dbdbf4f7d26edbc8f /lib/Test | |
| parent | 589fe9d5e99683526640f3a7119bb0059e22bc5f (diff) | |
| download | perl-52cebf5efc9883c776f89be24e988c47ceba2a42.tar.gz | |
[ PATCH 5.004_64 ] Integrated regression tests for compiler
p4raw-id: //depot/perl@963
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 8102ff4cac..e2c47d62ad 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -68,7 +68,9 @@ sub runtests { my $s = $switches; $s .= q[ "-T"] if $first =~ /^#!.*\bperl.*-\w*T/; $fh->close or print "can't close $test. $!\n"; - my $cmd = "$^X $s $test|"; + my $cmd = ($ENV{'COMPILE_TEST'})? +"./perl -I../lib ../utils/perlcc $test -run -verbose dcf -log ./compilelog |" + : "$^X $s $test|"; $cmd = "MCR $cmd" if $^O eq 'VMS'; $fh->open($cmd) or print "can't run $test. $!\n"; $ok = $next = $max = 0; |