diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-18 19:54:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-18 19:54:45 +0000 |
| commit | 7ddf2a0a82284c8cbfd954bcff9ec9497fd3403a (patch) | |
| tree | 8b19b0055c5724a2c7e16fb7a97badb707abb5ff /t | |
| parent | cc4efec9546c05b8d12a33b0fef6915a804ba903 (diff) | |
| download | perl-7ddf2a0a82284c8cbfd954bcff9ec9497fd3403a.tar.gz | |
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..)
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/magic.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index e2acb1f641..c2a82115b4 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") ); |