X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9636a016720fa29929de1fb9fc4ead4cfbfc4af8..b815e894e1fc82c49b9845b9884350949cec1752:/t/harness
diff --git a/t/harness b/t/harness
index e1a4dd7..ca8a676 100644
--- a/t/harness
+++ b/t/harness
@@ -37,17 +37,17 @@ foreach (keys %datahandle) {
}
@tests = @ARGV;
-@tests = unless @tests;
+@tests = unless @tests;
Test::Harness::runtests @tests;
exit(0) unless -e "../testcompile";
-%infinite = qw (
- op/bop.t 1
- lib/hostname.t 1
- op/lex_assign.t 1
- lib/ph.t 1
- );
+# %infinite = qw (
+# op/bop.t 1
+# lib/hostname.t 1
+# op/lex_assign.t 1
+# lib/ph.t 1
+# );
my $dhwrapper = <<'EOT';
open DATA,"<".__FILE__;
@@ -72,10 +72,10 @@ EOT
print "The tests ", join(' ', keys(%infinite)),
" generate infinite loops! Skipping!\n";
-$ENV{'HARNESS_COMPILE_TEST'} = 1;
+$ENV{'HARNESS_COMPILE_TEST'} = 1;
$ENV{'PERLCC_TIMEOUT'} = 120 unless $ENV{'PERLCC_TIMEOUT'};
-Test::Harness::runtests @tests;
+Test::Harness::runtests @tests;
foreach (keys %datahandle) {
unlink "$_.t";
}