diff options
Diffstat (limited to 'lib/ExtUtils/t/MM_Win32.t')
| -rw-r--r-- | lib/ExtUtils/t/MM_Win32.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lib/ExtUtils/t/MM_Win32.t b/lib/ExtUtils/t/MM_Win32.t index ca870d5cb0..7acde33a94 100644 --- a/lib/ExtUtils/t/MM_Win32.t +++ b/lib/ExtUtils/t/MM_Win32.t @@ -163,15 +163,10 @@ delete $ENV{PATHEXT} unless $had_pathext; } # path() -my $had_path = exists $ENV{PATH}; { - my @path_eg = ( qw( . .. ), 'C:\\Program Files' ); - local $ENV{PATH} = join ';', @path_eg; - ok( eq_array( [ $MM->path() ], [ @path_eg ] ), + ok( eq_array( [ $MM->path() ], [ File::Spec->path ] ), 'path() [preset]' ); } -# Bug in Perl. local $ENV{FOO} will not delete key afterwards. -delete $ENV{PATH} unless $had_path; # static_lib() should look into that # dynamic_bs() should look into that |