diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-11-23 20:32:49 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-11-24 07:35:50 -0800 |
| commit | 8daf8916b49984fc91791e8265cd7e1ca36b836c (patch) | |
| tree | 286458b2a1b057a66edd69ad1913ed72dabc7fb3 /t | |
| parent | 8e3171984bd6a5f4edf04ec5b91032d053bdd8a5 (diff) | |
| download | perl-8daf8916b49984fc91791e8265cd7e1ca36b836c.tar.gz | |
Stop ignored :lvalue warning from leaking CVs
When newMYSUB and newATTRSUB are called, PL_compcv has an unclaimed
reference count, so any code that croaks must decrement the reference
count or make arrangements for such to happen.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/svleak.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/svleak.t b/t/op/svleak.t index 11ce8debb6..dee80aca37 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -78,12 +78,12 @@ eleak(2, 0, "$all /\$\\ /", '/$\ / with fatal warnings'); eleak(2, 0, "$all s//\\1/", 's//\1/ with fatal warnings'); eleak(2, 0, "$all qq|\\i|", 'qq|\i| with fatal warnings'); eleak(2, 0, "$f 'digit'; qq|\\o{9}|", 'qq|\o{9}| with fatal warnings'); -$::TODO = 'still leaks'; eleak(2, 0, "$f 'misc'; sub foo{} sub foo:lvalue", 'ignored :lvalue with fatal warnings'); eleak(2, 0, "no warnings; use feature ':all'; $f 'misc'; my sub foo{} sub foo:lvalue", 'ignored mysub :lvalue with fatal warnings'); +$::TODO = 'still leaks'; eleak(2, 0, "no warnings; use feature ':all'; $all my sub foo{} sub foo:lvalue{}", 'fatal mysub redef warning'); |