Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner AT cygwin DOT com Mail-Followup-To: cygwin AT cygwin DOT com Delivered-To: mailing list cygwin AT cygwin DOT com Date: Sun, 17 Jul 2005 15:41:40 -0700 From: Michael G Schwern To: "Gerrit P. Haase" Cc: Andrew Ho , cygwin AT cygwin DOT com, makemaker AT perl DOT org, perl5-porters AT perl DOT org, petdance AT cpan DOT org Subject: Re: [perl-5.8.7] Perl regression tests fail when lib directory is present Message-ID: <20050717224140.GA6896@windhund.schwern.org> References: <42D8D5F3 DOT 9060307 AT familiehaase DOT de> <42DA398D DOT 60802 AT familiehaase DOT de> <20050717195041 DOT GC5605 AT windhund DOT schwern DOT org> <42DABCA8 DOT 2020603 AT familiehaase DOT de> <20050717211809 DOT GB6411 AT windhund DOT schwern DOT org> <42DAD10B DOT 4080807 AT familiehaase DOT de> <20050717215802 DOT GA6714 AT windhund DOT schwern DOT org> <42DADB53 DOT 1060006 AT familiehaase DOT de> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline In-Reply-To: <42DADB53.1060006@familiehaase.de> User-Agent: Mutt/1.4.2.1i 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 AT pobox DOT 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/