diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-14 21:10:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-14 21:10:09 +0000 |
| commit | 5da4baf7965da69c0b59c8683d446777cff89c61 (patch) | |
| tree | 8504c47e0f540dc93c00511ca7727db5cb1a2c7a /t/op/local.t | |
| parent | 192cbf1b06bd0b1c75cb42877f87ad6c99aa68e0 (diff) | |
| download | perl-5da4baf7965da69c0b59c8683d446777cff89c61.tar.gz | |
The Day of the Retractions continues: the #9138
(integrated in #9144) doesn't work well in mainline.
p4raw-id: //depot/perl@9158
Diffstat (limited to 't/op/local.t')
| -rwxr-xr-x | t/op/local.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/local.t b/t/op/local.t index 9f977b2cd4..781afa5b35 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -2,6 +2,9 @@ print "1..71\n"; +# XXX known to leak scalars +$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; + sub foo { local($a, $b) = @_; local($c, $d); |