Change 34506 by [EMAIL PROTECTED] on 2008/10/18 18:04:40
Fix memory leak in qr// operator. This was most probably
introduced with #30849.
Affected files ...
... //depot/perl/pp_hot.c#578 edit
Differences ...
==== //depot/perl/pp_hot.c#578 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#577~34092~ 2008-06-28 14:06:57.000000000 -0700
+++ perl/pp_hot.c 2008-10-18 11:04:40.000000000 -0700
@@ -1212,6 +1212,7 @@
if (pkg) {
HV* const stash = gv_stashpv(SvPV_nolen(pkg), GV_ADD);
+ SvREFCNT_dec(pkg);
(void)sv_bless(rv, stash);
}
End of Patch.
