diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-01-13 18:18:01 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-15 16:37:21 +0000 |
| commit | a20207d7c00bd54d6d2718961a96cd5c7ed1e37b (patch) | |
| tree | 0b43606006e1c20c7552202ed54244b4d5525013 /regcomp.c | |
| parent | cde0cee5716418bb58782f073048ee9685ed2368 (diff) | |
| download | perl-a20207d7c00bd54d6d2718961a96cd5c7ed1e37b.tar.gz | |
Re: [PATCH] Add support for /k modfier for matching along with ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH}
Message-ID: <9b18b3110701130818h6badbd3o1b38f2660d258173@mail.gmail.com>
macroize regexp modifiers
p4raw-id: //depot/perl@29834
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -8869,7 +8869,7 @@ Perl_reg_stringify(pTHX_ MAGIC *mg, STRLEN *lp, U32 *flags, I32 *haseval ) { const regexp * const re = (regexp *)mg->mg_obj; if (!mg->mg_ptr) { - const char *fptr = "msix"; + const char *fptr = STD_PAT_MODS; /*"msix"*/ char reflags[7]; char ch; bool hask = ((re->extflags & RXf_PMf_KEEPCOPY) == RXf_PMf_KEEPCOPY); @@ -8879,7 +8879,7 @@ Perl_reg_stringify(pTHX_ MAGIC *mg, STRLEN *lp, U32 *flags, I32 *haseval ) { int left = 0; int right = 4 + hask; if (hask) - reflags[left++]='k'; + reflags[left++] = KEEPCOPY_PAT_MOD; /*'k'*/ while((ch = *fptr++)) { if(reganch & 1) { reflags[left++] = ch; |