Change 29837 by [EMAIL PROTECTED] on 2007/01/15 18:19:20 when cloning PL_regex_pad, copy SVf_BREAK flag too
Affected files ... ... //depot/perl/sv.c#1351 edit Differences ... ==== //depot/perl/sv.c#1351 (text) ==== Index: perl/sv.c --- perl/sv.c#1350~29687~ 2007-01-04 07:33:16.000000000 -0800 +++ perl/sv.c 2007-01-15 10:19:20.000000000 -0800 @@ -11025,6 +11025,8 @@ 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); } } End of Patch.