From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 15 Jan 2007 18:19:20 +0000 (+0000)
Subject: when cloning  PL_regex_pad, copy SVf_BREAK flag too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=607905347eb1bbe08eb76ed3e8e9e27622ad97ed;p=p5sagit%2Fp5-mst-13.2.git

when cloning  PL_regex_pad, copy SVf_BREAK flag too

p4raw-id: //depot/perl@29837
---

diff --git a/sv.c b/sv.c
index 33cdb52..bfc9ee7 100644
--- a/sv.c
+++ b/sv.c
@@ -11025,6 +11025,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 			newSViv(PTR2IV(CALLREGDUPE(
 				INT2PTR(REGEXP *, SvIVX(regex)), param))))
 		;
+	    if (SvFLAGS(regex) & SVf_BREAK)
+		SvFLAGS(sv) |= SVf_BREAK; /* unrefcnted PL_curpm */
 	    av_push(PL_regex_padav, sv);
 	}
     }