[Module-build-general] verbose and Test::Harness

[Dave R. <au...@ur...>]

There's a number of different versions of Test::Harness out there, and at
least with the one installed on my system (2.24), "Build test verbose=1"
does not actually lead to verbose output.  This patch fixes that while
still preserving the old code, which presumably works with some versions
of Test::Harness.

This also does the same thing for test 'switches', on the theory that it
can't hurt.  I'm not really sure how to test this.


-dave


diff -wru ../Module-Build-0.11/lib/Module/Build/Base.pm ./lib/Module/Build/Base.pm
--- ../Module-Build-0.11/lib/Module/Build/Base.pm	2002-08-24 00:58:27.000000000 +0800
+++ ./lib/Module/Build/Base.pm	2002-08-24 01:08:10.000000000 +0800
@@ -563,9 +563,16 @@

   $self->depends_on('build');

-  local $Test::Harness::switches = '-w -d' if $self->{properties}{debugger};
-  local $Test::Harness::verbose = $self->{properties}{verbose} || 0;
-  local $ENV{TEST_VERBOSE} = $self->{properties}{verbose} || 0;
+  local ($Test::Harness::switches,
+         $Test::Harness::Switches,
+         $ENV{HARNESS_PERL_SWITCHES}) = ('-w -d') x 2
+             if $self->{properties}{debugger};
+
+  my $verbose = $self->{properties}{verbose} || 0;
+
+  local ($Test::Harness::verbose,
+         $Test::Harness::Verbose,
+         $ENV{TEST_VERBOSE},
+         $ENV{HARNESS_VERBOSE}) = ($verbose) x 4;

   # Make sure we test the module in blib/
   {