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


1.2
date	2009.09.11.11.23.30;	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=52658
# http://perl5.git.perl.org/perl.git/commitdiff/62b40d2474e7487e6909e1872b6bccdf812c6818?hp=d49025b75d9b5002071bd1a4210654dab5663ef0#patch1
diff --git a/pp_ctl.c b/pp_ctl.c
index 7a377f0..88269a7 100644
--- pp_ctl.c
+++ pp_ctl.c
@@@@ -218,7 +218,6 @@@@ PP(pp_substcont)
 	if (!(cx->sb_rxtainted & 2) && SvTAINTED(TOPs))
 	    cx->sb_rxtainted |= 2;
 	sv_catsv(dstr, POPs);
-	FREETMPS; /* Prevent excess tmp stack */
 
 	/* Are we done */
 	if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig,

@


1.1
log
@Add several bugfixes, imported from maint-5.10
(i.e. will be included into forthcoming 5.10.1).
@
text
@@

