diff options
author | Yves Orton <yves.orton@booking.com> | 2014-01-31 04:43:06 +0800 |
---|---|---|
committer | Yves Orton <yves.orton@booking.com> | 2014-01-31 04:43:06 +0800 |
commit | 8e1490eec69ee19f7e1c851a5082c201cda30448 (patch) | |
tree | 17cf727a805df769db5c26787d098cc304bbf0e8 /pp.c | |
parent | 5e11cd6399d690478e46778b19191fe65f8cf871 (diff) | |
download | perl-8e1490eec69ee19f7e1c851a5082c201cda30448.tar.gz |
Move the RXf_ANCH flags to intflags as PREGf_ANCH_xxx and add RXf_IS_ANCHORED as a replacement
The only requirement outside of the regex engine is to identify that there is
an anchor involved at all. So we move the 4 anchor flags to intflags and replace
it with a single aggregate flag RXf_IS_ANCHORED in extflags.
This frees up another 3 bits in extflags.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -5644,7 +5644,7 @@ PP(pp_split) else if (do_utf8 == (RX_UTF8(rx) != 0) && (RX_EXTFLAGS(rx) & RXf_USE_INTUIT) && !RX_NPARENS(rx) && (RX_EXTFLAGS(rx) & RXf_CHECK_ALL) - && !(RX_EXTFLAGS(rx) & RXf_ANCH)) { + && !(RX_EXTFLAGS(rx) & RXf_IS_ANCHORED)) { const int tail = (RX_EXTFLAGS(rx) & RXf_INTUIT_TAIL); SV * const csv = CALLREG_INTUIT_STRING(rx); |