X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=blobdiff_plain;f=t%2Flib%2FVPIT%2FTestHelpers.pm;fp=t%2Flib%2FVPIT%2FTestHelpers.pm;h=c147f80a919756cbdfacfccb26bfbc866bcb6ddd;hp=91de04459f69425f1f6a425ced54160b621461ca;hb=e39e71949c4fa235af38f428a5acb4e5d623afa9;hpb=6fa4fee40c6f93a6b776905a869605e9f210d0b6 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; }