diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-06-28 23:14:39 +0000 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2007-06-28 23:14:39 +0000 |
| commit | f1b875a0a91038690cebe55acd7ad1e37e6a2621 (patch) | |
| tree | af2c0780befa801256117288794b44649166c71f /mg.c | |
| parent | 7bd1e61447493a93405e0d15fe2f8a0b6bf71de1 (diff) | |
| download | perl-f1b875a0a91038690cebe55acd7ad1e37e6a2621.tar.gz | |
Rename various regex defined so that they have distinct prefixes based on their usage.
RXf_ => flags used in pm_flags argument to regcomp
and stored in the regex via rx->extflags
PREGf_ => flags stored in rx->intflags
RXapif_ => argument flags for regex named capture api
RX_BUFF_IDX_ => special indexes to represent $` $' $&
used in the numeric capture buffer api
PREGf is untouched by this change, but RXf_ is split into RXapif and RX_BUFF_IDX_.
p4raw-id: //depot/perl@31497
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -603,15 +603,15 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg) } case '`': do_prematch: - paren = RXf_PREMATCH; + paren = RX_BUFF_IDX_PREMATCH; goto maybegetparen; case '\'': do_postmatch: - paren = RXf_POSTMATCH; + paren = RX_BUFF_IDX_POSTMATCH; goto maybegetparen; case '&': do_match: - paren = RXf_MATCH; + paren = RX_BUFF_IDX_FULLMATCH; goto maybegetparen; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': @@ -2255,15 +2255,15 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) goto do_match; case '`': /* ${^PREMATCH} caught below */ do_prematch: - paren = RXf_PREMATCH; + paren = RX_BUFF_IDX_PREMATCH; goto setparen; case '\'': /* ${^POSTMATCH} caught below */ do_postmatch: - paren = RXf_POSTMATCH; + paren = RX_BUFF_IDX_POSTMATCH; goto setparen; case '&': do_match: - paren = RXf_MATCH; + paren = RX_BUFF_IDX_FULLMATCH; goto setparen; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': |