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 (executable)
--- 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") );