From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 7 Mar 2009 13:47:18 +0000 (+0100)
Subject: Fix test failure with t/TEST
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f5407a9b9bbda87458e495847d46c9474a63563;p=p5sagit%2Fp5-mst-13.2.git

Fix test failure with t/TEST

(because of a lack of perl search path for non installed modules)
---

diff --git a/ext/Test-Harness/t/perl5lib.t b/ext/Test-Harness/t/perl5lib.t
index c26fd2f..6ee3db2 100644
--- a/ext/Test-Harness/t/perl5lib.t
+++ b/ext/Test-Harness/t/perl5lib.t
@@ -29,7 +29,8 @@ use Test::Harness;
 use App::Prove;
 
 # Change PERL5LIB so we ensure it's preserved.
-$ENV{PERL5LIB} = join( $path_sep, 'wibble', $ENV{PERL5LIB} );
+$ENV{PERL5LIB} = join( $path_sep, 'wibble',
+    ($ENV{PERL_CORE} ? '../lib' : ()), $ENV{PERL5LIB} || '' );
 
 open TEST, ">perl5lib_check.t.tmp";
 print TEST <<"END";