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

[Ken W. <ke...@ma...>]

I've applied this, with a test.  Can you try 'Build test' now?  For 
kicks, also 'Build test verbose=1'.

  -Ken

On Friday, August 23, 2002, at 12:10  PM, Dave Rolsky wrote:

> 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/
>    {