X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2Flib%2FVPIT%2FTestHelpers.pm;h=c147f80a919756cbdfacfccb26bfbc866bcb6ddd;hp=91de04459f69425f1f6a425ced54160b621461ca;hb=12feddbc045db821639de1c2a02d9b7c39f98f75;hpb=6f86033f2d299addd4279cfbdf681e866aa9570d diff --git a/t/lib/VPIT/TestHelpers.pm b/t/lib/VPIT/TestHelpers.pm index 91de044..c147f80 100644 --- a/t/lib/VPIT/TestHelpers.pm +++ b/t/lib/VPIT/TestHelpers.pm @@ -113,9 +113,9 @@ sub run_perl { my $ldlibpth = $ENV{$ld_name}; local %ENV; + $ENV{$ld_name} = $ldlibpth if defined $ldlibpth; $ENV{SystemRoot} = $SystemRoot if $^O eq 'MSWin32' and defined $SystemRoot; $ENV{PATH} = $PATH if $^O eq 'cygwin' and defined $PATH; - $ENV{$ld_name} = $ldlibpth if $^O eq 'android' and defined $ldlibpth; system { $^X } $^X, '-T', map("-I$_", @INC), '-e', $code; }