integrate cfgperl contents into mainline

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

diff --git a/t/harness b/t/harness
index c46a870..e1a4dd7 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -57,7 +57,7 @@ EOT
 @tests = grep (!$infinite{$_}, @tests);
 @tests = map {
          my $new = $_;
-        if ($datahandle{$_} && !( -f $new.t) ) {
+        if ($datahandle{$_} && !( -f "$new.t") ) {
              $new .= '.t';
              local(*F, *T);
              open(F,"<$_") or die "Can't open $_: $!";
@@ -72,8 +72,8 @@ EOT
 print "The tests ", join(' ', keys(%infinite)),
     " generate infinite loops! Skipping!\n";
 
-$ENV{'COMPILE_TEST'} = 1; 
-$ENV{'COMPILE_TIMEOUT'} = 120 unless $ENV{'COMPILE_TIMEOUT'};
+$ENV{'HARNESS_COMPILE_TEST'} = 1; 
+$ENV{'PERLCC_TIMEOUT'} = 120 unless $ENV{'PERLCC_TIMEOUT'};
 
 Test::Harness::runtests @tests; 
 foreach (keys %datahandle) {