diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-07-30 12:33:31 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-07-30 13:05:37 -0600 |
| commit | f2e96b5ddb6396417bc2fb71915c5025215060d6 (patch) | |
| tree | 149be6f736fbd2e7953c6cc7ceff7fe91d362c94 /regexec.c | |
| parent | c973bd4f39028e70c9887cea72ea048a71347c9b (diff) | |
| download | perl-f2e96b5ddb6396417bc2fb71915c5025215060d6.tar.gz | |
/aa and \b fail under some utf8 strings
This was due to my failure to realize that this 'if' needed to
be updated when the /aa modifier was added.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -3685,7 +3685,10 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) case NBOUNDU: case NBOUNDA: /* was last char in word? */ - if (utf8_target && FLAGS(scan) != REGEX_ASCII_RESTRICTED_CHARSET) { + if (utf8_target + && FLAGS(scan) != REGEX_ASCII_RESTRICTED_CHARSET + && FLAGS(scan) != REGEX_ASCII_MORE_RESTRICTED_CHARSET) + { if (locinput == PL_bostr) ln = '\n'; else { |