Fix test failure with t/TEST
Rafael Garcia-Suarez [Sat, 7 Mar 2009 13:47:18 +0000 (14:47 +0100)]
(because of a lack of perl search path for non installed modules)

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";