File perl-regexp-memleak.diff of Package perl

--- ./regcomp.c.orig	2010-07-28 16:01:35.739493000 +0000
+++ ./regcomp.c	2010-07-28 16:05:29.943527000 +0000
@@ -8250,6 +8250,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) */