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.
