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 /pp.c | |
| 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 'pp.c')
| -rw-r--r-- | pp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -488,7 +488,8 @@ PP(pp_prototype) if (!code || code == -KEY_CORE) DIE(aTHX_ "Can't find an opnumber for \"%"SVf"\"", SVfARG(newSVpvn_flags( - s+6, SvCUR(TOPs)-6, SvFLAGS(TOPs) & SVf_UTF8 + s+6, SvCUR(TOPs)-6, + (SvFLAGS(TOPs) & SVf_UTF8)|SVs_TEMP ))); { SV * const sv = core_prototype(NULL, s + 6, code, NULL); |