summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2001-08-15 12:32:11 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-15 12:26:44 +0000
commit055bb491aa1c61403cb7de2ea930a89a362e1807 (patch)
tree4fd155e625469126c3a0fbd74c547541b135a6fa /regcomp.c
parent8e514ae641772eeb6e8f06069ce47f26ef1fcf57 (diff)
downloadperl-055bb491aa1c61403cb7de2ea930a89a362e1807.tar.gz
Re: [ID 20010809.023] perlre misleads when stating that (?i) should be at front of pattern
Message-Id: <200108151032.f7FAWBI30961@crypt.compulink.co.uk> p4raw-id: //depot/perl@11677
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index 2e37633e93..18aa0576ec 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1746,6 +1746,7 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm)
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;