Change 11677 by jhi@alpha on 2001/08/15 12:26:44
Subject: Re: [ID 20010809.023] perlre misleads when stating that (?i) should
be at front of pattern
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 15 Aug 2001 11:32:11 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regcomp.c#226 edit
... //depot/perl/t/op/re_tests#64 edit
Differences ...
==== //depot/perl/regcomp.c#226 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Wed Aug 15 06:30:05 2001
+++ perl/regcomp.c Wed Aug 15 06:30:05 2001
@@ -1746,6 +1746,7 @@
RExC_rx = r;
/* Second pass: emit code. */
+ RExC_flags16 = pm->op_pmflags; /* don't let top level (?i) bleed */
RExC_parse = exp;
RExC_end = xend;
RExC_naughty = 0;
==== //depot/perl/t/op/re_tests#64 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests.~1~ Wed Aug 15 06:30:05 2001
+++ perl/t/op/re_tests Wed Aug 15 06:30:05 2001
@@ -790,3 +790,5 @@
'b\s^'m a\nb\n n - -
\ba a y - -
^(a(??{"(?!)"})|(a)(?{1}))b ab y $2 a # [ID 20010811.006]
+ab(?i)cd AbCd n - - # [ID 20010809.023]
+ab(?i)cd abCd y - -
End of Patch.
