diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-11-17 22:56:07 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-11-18 14:02:36 -0800 |
| commit | c9af70d59afc4163e3f199e2160d2708cccca9a6 (patch) | |
| tree | a34b19e0bce68eccda04ee14ecce761d3f3f5fc9 /t/op/svleak.t | |
| parent | 1cdc9186cabf19ce52d3cfa09e46c4f4a28e59e1 (diff) | |
| download | perl-c9af70d59afc4163e3f199e2160d2708cccca9a6.tar.gz | |
Stop prototype("CORE::...") errors from leaking
They have leakd since v5.17.0-54-g1b08e05.
Diffstat (limited to 't/op/svleak.t')
| -rw-r--r-- | t/op/svleak.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/svleak.t b/t/op/svleak.t index 7b530925fa..3c35fc6769 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -15,7 +15,7 @@ BEGIN { use Config; -plan tests => 71; +plan tests => 72; # run some code N times. If the number of SVs at the end of loop N is # greater than (N-1)*delta at the end of loop 1, we've got a leak @@ -146,6 +146,9 @@ SKIP: ok(!$weak, "hash referenced weakened SV released"); } +# prototype() errors +leak(2,0, sub { eval { prototype "CORE::fu" } }, 'prototype errors'); + # RT #72246: rcatline memory leak on bad $/ leak(2, 0, |