diff options
| author | Yves Orton <demerphq@gmail.com> | 2013-06-22 18:17:09 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2013-06-22 18:42:01 +0200 |
| commit | b8f6efdd9cee0ae5cd4adf5a15aebb2984f57fda (patch) | |
| tree | 589b95a5eb84811c08a9b4ed6993899c21624ca8 /regnodes.h | |
| parent | 337ff3078c4082e843af19536e11f70d3d14bfe9 (diff) | |
| download | perl-b8f6efdd9cee0ae5cd4adf5a15aebb2984f57fda.tar.gz | |
Fix and add tests for *PRUNE/*THEN plus leading non-greedy +
"aaabc" should match /a+?(*THEN)bc/ with "abc".
Diffstat (limited to 'regnodes.h')
| -rw-r--r-- | regnodes.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/regnodes.h b/regnodes.h index d6c57e0010..b302f5ddf3 100644 --- a/regnodes.h +++ b/regnodes.h @@ -692,12 +692,12 @@ EXTCONST char * const PL_reg_extflags_name[] = { EXTCONST char * PL_reg_intflags_name[]; #else EXTCONST char * const PL_reg_intflags_name[] = { - "SKIP", /* 0x00000001 - PREGf_SKIP */ - "IMPLICIT", /* 0x00000002 - PREGf_IMPLICIT - Converted .* to ^.* */ - "NAUGHTY", /* 0x00000004 - PREGf_NAUGHTY - how exponential is this pattern? */ - "VERBARG_SEEN", /* 0x00000008 - PREGf_VERBARG_SEEN */ - "CUTGROUP_SEEN", /* 0x00000010 - PREGf_CUTGROUP_SEEN */ - "USE_RE_EVAL", /* 0x00000020 - PREGf_USE_RE_EVAL - compiled with "use re 'eval'" */ + "SKIP", /* 0x00000001 - PREGf_SKIP */ + "IMPLICIT", /* 0x00000002 - PREGf_IMPLICIT - Converted .* to ^.* */ + "NAUGHTY", /* 0x00000004 - PREGf_NAUGHTY - how exponential is this pattern? */ + "VERBARG_SEEN", /* 0x00000008 - PREGf_VERBARG_SEEN */ + "CUTGROUP_SEEN", /* 0x00000010 - PREGf_CUTGROUP_SEEN */ + "USE_RE_EVAL", /* 0x00000020 - PREGf_USE_RE_EVAL - compiled with "use re 'eval'" */ }; #endif /* DOINIT */ |