[Module::Build] Module::Build stomps on HARNESS_PERL_SWITCHES

[Paul J. <pa...@pj...>]

... and I don't think it should.  Here's a patch.

I'm not subscribed, so please CC any replies to me.

--- Module/Build/Base.pm.org	2003-10-07 17:12:31.000000000 +0200
+++ Module/Build/Base.pm	2003-10-08 22:09:07.000000000 +0200
@@ -972,9 +972,9 @@
   $self->depends_on('code');
   
   # Do everything in our power to work with all versions of Test::Harness
-  local ($Test::Harness::switches,
-	 $Test::Harness::Switches,
-         $ENV{HARNESS_PERL_SWITCHES}) = ($p->{debugger} ? '-w -d' : '') x 3;
+  local ($Test::Harness::switches, $Test::Harness::Switches) = ('', '');
+  local $ENV{HARNESS_PERL_SWITCHES} = $ENV{HARNESS_PERL_SWITCHES} .
+                                      ($p->{debugger} ? ' -w -d' : '');
 
   local ($Test::Harness::verbose,
 	 $Test::Harness::Verbose,

-- 
Paul Johnson - pa...@pj...
http://www.pjcj.net