Fix a signed/unsigned comparison warning

p4raw-id: //depot/perl@31097

diff --git a/regexec.c b/regexec.c
index 79fab43..d3e9c25 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -5006,9 +5006,8 @@ NULL
 #undef ST
         case FOLDCHAR:
             n = ARG(scan);
-            if (nextchr==n) {
+           if (nextchr == (I32)n) {
                 locinput += UTF8SKIP(locinput);
-
             } else {
                 /* This malarky is to handle LATIN SMALL LETTER SHARP S 
                    properly. Sigh */