diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 01:24:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 01:24:25 +0000 |
| commit | f248d07102861fd4d0819cc0b602f81105bc562c (patch) | |
| tree | 56fb766b87f14a99fd56b491dc6fa138a5c63e0f /regexec.c | |
| parent | 3e3318e754fa4289ad1c682811dbe6a31cd59e26 (diff) | |
| download | perl-f248d07102861fd4d0819cc0b602f81105bc562c.tar.gz | |
fixes for logical bugs in the lexwarn patch; other tweaks to avoid
type mismatch problems
p4raw-id: //depot/perl@3658
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1254,7 +1254,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * break; case ASCII: while (s < strend) { - if (isASCII(*s)) { + if (isASCII(*(U8*)s)) { if (tmp && regtry(prog, s)) goto got_it; else @@ -1267,7 +1267,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * break; case NASCII: while (s < strend) { - if (!isASCII(*s)) { + if (!isASCII(*(U8*)s)) { if (tmp && regtry(prog, s)) goto got_it; else |