[perl-5.8.7] Perl regression tests fail when lib directory is present
Michael G Schwern
schwern@pobox.com
Sun Jul 17 22:41:00 GMT 2005
On Mon, Jul 18, 2005 at 12:27:31AM +0200, Gerrit P. Haase wrote:
> >perl -MTest::Harness -Iblib/lib -Iblib/arch -wle '$Test::Harness::Debug =
> >1; $Test::Harness::Verbose = 1; runtests @ARGV' t/*.t
> >The lines we're looking for are "# PERL5LIB=..." from THS->analyze_file()
> >telling us how TH is setting @INC.
>
> t/test0....# Running: /usr/bin/perl -w t/test0.t
> # PERL5LIB=blib/lib:blib/arch
> 1..1
> # Running under perl version 5.008007 for cygwin
> # Current time local: Mon Jul 18 00:14:08 2005
> # Current time GMT: Sun Jul 17 22:14:08 2005
> # Using Test.pm version 1.25
> ok 1
> ok
> t/test1....# Running: /usr/bin/perl -w t/test1.t
> # PERL5LIB=
At this point I'd suspect there's something broken about %ENV. Try replacing
this in THS->analyze_file:
local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;
if ( $Test::Harness::Debug ) {
local $^W=0; # ignore undef warnings
print "# PERL5LIB=$ENV{PERL5LIB}\n";
}
with this:
my $libs = $self->_INC2PERL5LIB;
local $ENV{PERL5LIB} = $libs;
if ( $Test::Harness::Debug ) {
local $^W=0; # ignore undef warnings
print STDERR "# PERL5LIB=$ENV{PERL5LIB}\n";
print STDERR "# libs=$libs\n";
}
to determine if _INC2PERL5LIB() is acting properly.
--
Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern
Just call me 'Moron Sugar'.
http://www.somethingpositive.net/sp05182002.shtml
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Problem reports: http://cygwin.com/problems.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
More information about the Cygwin
mailing list