Contents of /devel/perl/34_fix_qr-memory-leak-2

Fix memory leak with qr//. (Closes: #503975)

Adapted from upstream change 34506.
diff --git a/pp_hot.c b/pp_hot.c
index 57fa328..4a4e9e8 100644
--- a/pp_hot.c
+++ b/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;
 }
1	Fix memory leak with qr//. (Closes: #503975)
2
3	Adapted from upstream change 34506.
4	diff --git a/pp_hot.c b/pp_hot.c
5	index 57fa328..4a4e9e8 100644
6	--- a/pp_hot.c
7	+++ b/pp_hot.c
8	@@ -1198,6 +1198,9 @@ PP(pp_qr)
9	if (rx->extflags & RXf_TAINTED)
10	SvTAINTED_on(rv);
11	sv_magic(sv,(SV*)ReREFCNT_inc(rx), PERL_MAGIC_qr,0,0);
12	+ if (pkg) {
13	+ SvREFCNT_dec(pkg);
14	+ }
15	XPUSHs(rv);
16	RETURN;
17	}
admin@fedoraproject.org	ViewVC Help
Powered by ViewVC 1.1.2