This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a signed/unsigned comparison warning
[perl5.git] / 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 */