diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 00:39:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 00:39:17 +0000 |
| commit | 9c63ababe730a679456af7dbae670cea805c3751 (patch) | |
| tree | b5f011f29d3d216162a4a41e58353a6235d1b112 /t/op/local.t | |
| parent | ed6c1d6b44d8ffac74beba8dcd7c0393a8698b0d (diff) | |
| download | perl-9c63ababe730a679456af7dbae670cea805c3751.tar.gz | |
fix small memory leak when mess_sv happens to be touched by magic
p4raw-id: //depot/perl@1585
Diffstat (limited to 't/op/local.t')
| -rwxr-xr-x | t/op/local.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t index f8c037d4bf..2f674d103b 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -4,7 +4,8 @@ print "1..58\n"; -$ENV{PERL_DESTRUCT_LEVEL} = 0; # XXX known to leaks scalars +# XXX known to leak scalars +$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; sub foo { local($a, $b) = @_; |