This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A hack for t/harness to restore the ability to run tests listed in @ARGV
authorNicholas Clark <nick@ccl4.org>
Fri, 5 Nov 2010 16:18:35 +0000 (16:18 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 5 Nov 2010 16:19:59 +0000 (16:19 +0000)
t/harness

index d9dac05..7748c26 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -12,6 +12,7 @@ my $torture; # torture testing?
 
 use TAP::Harness 3.13;
 use strict;
+use Config;
 
 $::do_nothing = $::do_nothing = 1;
 require './TEST';
@@ -109,6 +110,9 @@ if (@ARGV) {
     else {
        @tests = @ARGV;
     }
+    # This is a hack to force config_heavy.pl to be loaded, before the
+    # prep work for running a test changes directory.
+    1 if $Config{d_fork};
 } else {
     # Ideally we'd get somewhere close to Tux's Oslo rules
     # my $rules = {
@@ -157,7 +161,6 @@ if (@ARGV) {
        push @seq, $next;
 
        my @last;
-       use Config;
        push @last,  sort { lc $a cmp lc $b }
            _tests_from_manifest($Config{extensions}, $Config{known_extensions});
        push @last, <x2p/*.t>;