devel/perl/perl-5.10.0-Change34507.patch

diff -up perl-5.10.0/regcomp.c.34507 perl-5.10.0/regcomp.c
--- perl-5.10.0/regcomp.c.34507	2009-03-09 08:44:12.000000000 -0400
+++ perl-5.10.0/regcomp.c	2009-03-09 08:45:36.000000000 -0400
@@ -8239,6 +8239,9 @@ parseit:
         *STRING(ret)= (char)value;
         STR_LEN(ret)= 1;
         RExC_emit += STR_SZ(1);
+        if (listsv) {
+            SvREFCNT_dec(listsv);
+        }
         return ret;
     }
     /* optimize case-insensitive simple patterns (e.g. /[a-z]/i) */
1	diff -up perl-5.10.0/regcomp.c.34507 perl-5.10.0/regcomp.c
2	--- perl-5.10.0/regcomp.c.34507 2009-03-09 08:44:12.000000000 -0400
3	+++ perl-5.10.0/regcomp.c 2009-03-09 08:45:36.000000000 -0400
4	@@ -8239,6 +8239,9 @@ parseit:
5	*STRING(ret)= (char)value;
6	STR_LEN(ret)= 1;
7	RExC_emit += STR_SZ(1);
8	+ if (listsv) {
9	+ SvREFCNT_dec(listsv);
10	+ }
11	return ret;
12	}
13	/* optimize case-insensitive simple patterns (e.g. /[a-z]/i) */
admin@fedoraproject.org	ViewVC Help
Powered by ViewVC 1.1.2