fix signed/unsigned mismatch warning from change#18266

p4raw-link: @18266 on //depot/perl: ada6e8a992d3696f2a5e84c5e93d2fce8998ecfb

p4raw-id: //depot/perl@18356

diff --git a/regcomp.c b/regcomp.c
index 20b6876..7296c48 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5068,7 +5068,7 @@ Perl_save_re_context(pTHX)
 
     {
        /* Save $1..$n (#18107: UTF-8 s/(\w+)/uc($1)/e); AMS 20021106. */
-       int i;
+       U32 i;
        GV *mgv;
        REGEXP *rx;
        char digits[16];