diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-12-16 11:50:34 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-12-16 12:11:06 -0700 |
| commit | bff53399755564f2324c7d6362d84595da6d8db3 (patch) | |
| tree | f64c4ef75223bdb63144d280e8a33696a89bf9e9 /regexec.c | |
| parent | 632c9f80dfaf91e6a695c9a916ab6136110e4ac7 (diff) | |
| download | perl-bff53399755564f2324c7d6362d84595da6d8db3.tar.gz | |
Rename property involved in \X matching, for clarity
I was re-reading some code and got confused. This table matches just
the first character of a sequence that may or may not contain others.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4536,7 +4536,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) && (locinput >= PL_regeol || (! swash_fetch(PL_utf8_X_regular_begin, (U8*)locinput, utf8_target) - && ! is_GCB_SPECIAL_BEGIN_utf8(locinput))) + && ! is_GCB_SPECIAL_BEGIN_START_utf8(locinput))) ) { locinput = previous_prepend; @@ -4551,7 +4551,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) (U8*)locinput, utf8_target)) { locinput += UTF8SKIP(locinput); } - else if (! is_GCB_SPECIAL_BEGIN_utf8(locinput)) { + else if (! is_GCB_SPECIAL_BEGIN_START_utf8(locinput)) { /* Here did not match the required 'Begin' in the * second term. So just match the very first |