Merge pull request Perl-Toolchain-Gang#72 from Perl-Toolchain-Gang/no…

…-harness-switches do not set default switches in Test::Harness; not even -w
rjbs · Sep 21, 2013 · 1c1e923 · 1c1e923
2 parents 463df76 + 37c20b4
commit 1c1e923
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/ExtUtils/MM_Any.pm b/lib/ExtUtils/MM_Any.pm
@@ -2366,8 +2366,8 @@ Used on the t/*.t files.
 sub test_via_harness {
     my($self, $perl, $tests) = @_;
 
-    return qq{\t$perl "-MExtUtils::Command::MM" }.
-           qq{"-e" "test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
+    return qq{\t$perl "-MExtUtils::Command::MM" "-MTest::Harness" }.
+           qq{"-e" "undef *Test::Harness::Switches; test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
 }
 
 =head3 test_via_script