fixes for logical bugs in the lexwarn patch; other tweaks to avoid

[p5sagit/p5-mst-13.2.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 75f3873..58d6af9 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -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