diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 04:56:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 04:56:56 +0000 |
| commit | 7ecddb32beae27e5077f061ef989b8c08b1a7f5f (patch) | |
| tree | d4115ed17a218f6e06aed4c85487d807842bdc85 /regexec.c | |
| parent | c186502f1148fea82364a2091670daf6fb175c14 (diff) | |
| download | perl-7ecddb32beae27e5077f061ef989b8c08b1a7f5f.tar.gz | |
fix little utf8 nits in testsuite; add patch from Ilya that cures
a utf8 bug in one of the new RE optimizations
p4raw-id: //depot/perl@3730
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -321,6 +321,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, && (sv && (strpos + SvCUR(sv) != strend)) ) goto fail; + PL_regeol = strend; /* Used in HOP() */ s = (char*)HOP((U8*)strpos, prog->check_offset_min); if (SvTAIL(prog->check_substr)) { slen = SvCUR(prog->check_substr); /* >= 1 */ |