diff options
| author | Tony Cook <tony@develop-help.com> | 2014-10-29 13:53:13 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-11-05 11:25:15 +1100 |
| commit | 3415f8b9fb121a138ed954f9ced0b2c1f4660e48 (patch) | |
| tree | d2d6c239f5a96ced7ae57cc228c5bf439e13c925 /dist/lib | |
| parent | 51eb35b5522d03b44aef29d0c17d1138ba8ed6fa (diff) | |
| download | perl-3415f8b9fb121a138ed954f9ced0b2c1f4660e48.tar.gz | |
[perl #120487] make sure we're using an unmodified @INC to load Win32
rmtree() indirectly loads Win32, and since the test adds
$Config{installsitelib) to @INC, if a previous perl has been installed
in the current build's installation directory, the wrong module may be
loaded.
This is made worse by Win32 perl not using the archname in the library
directory.
Diffstat (limited to 'dist/lib')
| -rw-r--r-- | dist/lib/t/01lib.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/dist/lib/t/01lib.t b/dist/lib/t/01lib.t index 2a103d4a3b..7cf644d428 100644 --- a/dist/lib/t/01lib.t +++ b/dist/lib/t/01lib.t @@ -38,6 +38,9 @@ MODULE } END { + # rmtree() can indirectly load the XS object for Win32, ensure + # we have our original sane @INC + local @INC = @OrigINC; # cleanup the auto/ directory we created. rmtree([$lib_dir[0]]); } |