head	1.2;
access;
symbols
	old_old_RELEASE_7_2_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2009.09.11.11.23.31;	author skv;	state dead;
branches;
next	1.1;

1.1
date	2009.04.04.09.06.53;	author skv;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to 5.10.1

Changes:	http://search.cpan.org/~dapm/perl-5.10.1/pod/perl5101delta.pod
@
text
@# http://rt.perl.org/rt3/Public/Bug/Display.html?id=59516
# http://perl5.git.perl.org/perl.git/commitdiff/b023a8eeff463528d4a2b46396f79056c0ef9677?hp=a954f6ee3112c0edfbc59783d1b424d995122784
diff --git a/regcomp.c b/regcomp.c
index 54347cc..68cc58c 100644
--- regcomp.c
+++ regcomp.c
@@@@ -8350,6 +8350,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.1
log
@Add several bugfixes, imported from maint-5.10
(i.e. will be included into forthcoming 5.10.1).
@
text
@@

