diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-04 18:09:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-04 18:09:38 +0000 |
| commit | cce850e4f65d092b5704ab42116f11f5188dd74e (patch) | |
| tree | 86420e16cde9c0ee15805f5242bff7029ae0921c /regcomp.c | |
| parent | 01485f8b60f6cb9da6ceaaafc3abd52c6f690081 (diff) | |
| download | perl-cce850e4f65d092b5704ab42116f11f5188dd74e.tar.gz | |
Continuation of #11575: SANY_SEEN completely deprecated,
plus more tests that unearthed a bug in @a = ($utf8 =~ /\C/g),
plus a fix for the bug.
p4raw-id: //depot/perl@11577
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -2013,8 +2013,6 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) r->reganch |= ROPT_LOOKBEHIND_SEEN; if (RExC_seen & REG_SEEN_EVAL) r->reganch |= ROPT_EVAL_SEEN; - if (RExC_seen & REG_SEEN_SANY) - r->reganch |= ROPT_SANY_SEEN; if (RExC_seen & REG_SEEN_CANY) r->reganch |= ROPT_CANY_SEEN; Newz(1002, r->startp, RExC_npar, I32); @@ -2719,10 +2717,8 @@ tryagain: break; case '.': nextchar(pRExC_state); - if (RExC_flags16 & PMf_SINGLELINE) { + if (RExC_flags16 & PMf_SINGLELINE) ret = reg_node(pRExC_state, SANY); - RExC_seen |= REG_SEEN_SANY; - } else ret = reg_node(pRExC_state, REG_ANY); *flagp |= HASWIDTH|SIMPLE; |