diff options
Diffstat (limited to 'lang/perl5.16/files/patch-qr-leak')
| -rw-r--r-- | lang/perl5.16/files/patch-qr-leak | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lang/perl5.16/files/patch-qr-leak b/lang/perl5.16/files/patch-qr-leak deleted file mode 100644 index 842c0074af46..000000000000 --- a/lang/perl5.16/files/patch-qr-leak +++ /dev/null @@ -1,16 +0,0 @@ -# http://perl5.git.perl.org/perl.git/commitdiff/a954f6ee3112c0edfbc59783d1b424d995122784?hp=711690a16d2a16be7070e06779c46a6d8f482689 -diff --git a/pp_hot.c b/pp_hot.c -index 57fa328..4a4e9e8 100644 ---- pp_hot.c -+++ pp_hot.c -@@ -1198,6 +1198,9 @@ PP(pp_qr) - if (rx->extflags & RXf_TAINTED) - SvTAINTED_on(rv); - sv_magic(sv,(SV*)ReREFCNT_inc(rx), PERL_MAGIC_qr,0,0); -+ if (pkg) { -+ SvREFCNT_dec(pkg); -+ } - XPUSHs(rv); - RETURN; - } - |