diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-11-04 13:23:49 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-04 12:17:12 +0000 |
| commit | 1d86a7f9aafa7b00ab187ace80f468664c66c924 (patch) | |
| tree | f3bbc656a4ffc8d58807a3ea2658290d3c51511e /regexec.c | |
| parent | 532eb83898dc393c9f89b475b9f77385c39eff97 (diff) | |
| download | perl-1d86a7f9aafa7b00ab187ace80f468664c66c924.tar.gz | |
Re: [perl #17064] illegal legal unicode character
Message-Id: <200211041323.gA4DNn313132@crypt.compulink.co.uk>
p4raw-id: //depot/perl@18085
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -595,7 +595,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, t = s - prog->check_offset_max; if (s - strpos > prog->check_offset_max /* signed-corrected t > strpos */ - && (!(prog->reganch & ROPT_UTF8) + && (!do_utf8 || ((t = reghopmaybe3_c(s, -(prog->check_offset_max), strpos)) && t > strpos))) /* EMPTY */; @@ -715,7 +715,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, t = s - prog->check_offset_max; if (s - strpos > prog->check_offset_max /* signed-corrected t > strpos */ - && (!(prog->reganch & ROPT_UTF8) + && (!do_utf8 || ((t = reghopmaybe3_c(s, -prog->check_offset_max, strpos)) && t > strpos))) { /* Fixed substring is found far enough so that the match |