diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 02:30:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 02:30:18 +0000 |
| commit | 0f247f17e3de88ea0e1d96101a0ef56a3b9a48a4 (patch) | |
| tree | 3d872a7014f5102f2986753ad9cc00ce661d6eb7 /regexec.c | |
| parent | 6aaad45d9d816f32bcedb7f932be76e643f60317 (diff) | |
| download | perl-0f247f17e3de88ea0e1d96101a0ef56a3b9a48a4.tar.gz | |
Another UTF-8 locale tweak from Hugo.
p4raw-id: //depot/perl@15647
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1013,7 +1013,7 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta c1 = *(U8*)m; c2 = PL_fold_locale[c1]; do_exactf: - e = do_utf8 ? s + ln : strend - ln; + e = HOP3c(strend, -ln, s); if (norun && e < s) e = s; /* Due to minlen logic of intuit() */ |