Fix test failure with t/TEST
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 7 Mar 2009 13:47:18 +0000 (14:47 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 15 Apr 2009 19:41:39 +0000 (20:41 +0100)
(because of a lack of perl search path for non installed modules)

(cherry picked from commit 9f5407a9b9bbda87458e495847d46c9474a63563)

ext/Test-Harness/t/perl5lib.t

index c26fd2f..6ee3db2 100644 (file)
@@ -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";