diff options
author | John E. Malmberg <wb8tyw@qsl.net> | 2009-05-25 23:12:28 -0500 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-05-26 08:15:17 +0200 |
commit | 8df0e0edf4a8a108bdd1dc681d519947c09a5332 (patch) | |
tree | 24ecd75d396ea72ba8e49fef693808cd3d0a649f /t/op/magic.t | |
parent | 7cd487314be59fe3c6b1f2962a6a8713952980c2 (diff) | |
download | perl-8df0e0edf4a8a108bdd1dc681d519947c09a5332.tar.gz |
patch@2009-05-25.21:50:08 magic.t leaves $ENV{foo} on VMS.
This patches Magic.t to remove the $ENV{foo} it created on VMS.
This environment variable interferes with running other tests including
CPAN tests.
-John
wb8tyw@qsl.net
Personal Opinion Only
Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
Diffstat (limited to 't/op/magic.t')
-rwxr-xr-x | t/op/magic.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 81d7142cd7..fd2307bd2e 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -30,6 +30,11 @@ $PERL = $ENV{PERL} $Is_MSWin32 ? '.\perl' : './perl'); +END { + # On VMS, environment variable changes are peristent after perl exits + delete $ENV{'FOO'} if $Is_VMS; +} + eval '$ENV{"FOO"} = "hi there";'; # check that ENV is inited inside eval # cmd.exe will echo 'variable=value' but 4nt will echo just the value # -- Nikola Knezevic |