From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 18 Mar 2001 19:54:45 +0000 (+0000)
Subject: Integrate changes #9161,9162 from maintperl to mainline.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ddf2a0a82284c8cbfd954bcff9ec9497fd3403a;p=p5sagit%2Fp5-mst-13.2.git

Integrate changes #9161,9162 from maintperl to mainline.

clearing of $ENV{PERL_DESTRUCT_LEVEL} interferes with purify
       results

p4raw-link: @9162 on //depot/maint-5.6/perl: cc873c8a609f4b56edba9b88f1b4496679d365b9
p4raw-link: @9161 on //depot/maint-5.6/perl: 1d073d17caf7c28dffb8fcb759327c7e2554da80

p4raw-id: //depot/perl@9205
p4raw-integrated: from //depot/maint-5.6/perl@9204 'copy in'
	t/op/magic.t (@9161..)
---

diff --git a/t/op/magic.t b/t/op/magic.t
index e2acb1f..c2a8211 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -189,9 +189,11 @@ if ($Is_VMS || $Is_Dos) {
 }
 else {
 	$PATH = $ENV{PATH};
+	$PDL = $ENV{PERL_DESTRUCT_LEVEL} || 0;
 	$ENV{foo} = "bar";
 	%ENV = ();
 	$ENV{PATH} = $PATH;
+	$ENV{PERL_DESTRUCT_LEVEL} = $PDL || 0;
 	ok 29, ($Is_MSWin32 ? (`cmd /x /c set foo 2>NUL` eq "")
 				: (`echo \$foo` eq "\n") );