From: John E. Malmberg <wb8tyw@qsl.net>
Date: Tue, 26 May 2009 04:12:28 +0000 (-0500)
Subject: patch@2009-05-25.21:50:08 magic.t leaves $ENV{foo} on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8df0e0edf4a8a108bdd1dc681d519947c09a5332;p=p5sagit%2Fp5-mst-13.2.git

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>
---

diff --git a/t/op/magic.t b/t/op/magic.t
index 81d7142..fd2307b 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