X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVPIT-TestHelpers.git;a=blobdiff_plain;f=t%2F30-run_perl.t;fp=t%2F30-run_perl.t;h=bfc7bbb7fa477dab0bba34dc76a3b788e2d02c7c;hp=2238fb76838cf0f79e8d87d7f35237a16e7a5071;hb=9d12e1a9b21a372b49301b11df9b0720ba484ef4;hpb=ba865c42d13de4c435b55379b0a32fe232053668 diff --git a/t/30-run_perl.t b/t/30-run_perl.t index 2238fb7..bfc7bbb 100644 --- a/t/30-run_perl.t +++ b/t/30-run_perl.t @@ -25,7 +25,9 @@ my %expected_vars = ( 'darwin' => [ ], 'linux' => [ ], ); -push @$_, $ld_path for values %expected_vars; +unless ($^O eq 'darwin') { + push @$_, $ld_path for values %expected_vars; +} my @all_vars = do { my %uniq; @@ -38,16 +40,18 @@ my @ignored_vars = qw< VERSIONER_PERL_VERSION __CF_USER_TEXT_ENCODING >; +push @ignored_vars, $ld_path if $^O eq 'darwin'; for my $os (qw) { 1 while unlink $filename; - local $^O = $os; local %ENV; - @ENV{@all_vars} = @all_vars; - run_perl $code; + { + local $^O = $os; + run_perl $code; + } my %subprocess_env;