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

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

On Tue, 29 Oct 2002, Ken Williams wrote:

> I'm about to apply a form of this patch.  I want to make sure I
> understand it.

I wish I remembered more about writing it ;)

> Yeah, "Build test verbose=1" produces verbose output for me.  Someone
> else told me that it didn't for them, though, so I know you're not alone.

You have the pre-Schwern Test::Harness ;)

> > 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};
>
> Should be 'x 3', right?

Yes.

> > +
> > +  my $verbose = $self->{properties}{verbose} || 0;
> > +
> > +  local ($Test::Harness::verbose,
> > +         $Test::Harness::Verbose,
> > +         $ENV{TEST_VERBOSE},
> > +         $ENV{HARNESS_VERBOSE}) = ($verbose) x 4;
>
> So, your version of Test::Harness uses $Verbose instead of $verbose?
> I'm looking at T::H version 1.1604, which exports $verbose.

It claims to _also_ export $verbose (which is aliased to $Verbose), but in
practice I found I needed to set the capitalized version.

> Where are the HARNESS_VERBOSE and HARNESS_PERL_SWITCHES variables used?
> I can't find 'em in my @INC.

In @INC?  Huh, why would you expect to find them there?

You should grab a copy of Test::Harness off CPAN and browse through it a
bit.  It mentions those ENV vars.


-dave

/*==================
www.urth.org
we await the New Sun
==================*/