Fix a signed/unsigned comparison warning

p4raw-id: //depot/perl@31097

1 files changed, 1 insertions, 2 deletions

diff --git a/regexec.c b/regexec.c
index 79fab43436..d3e9c25096 100644
--- 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 */