fix signed/unsigned mismatch warning from change#18266

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

p4raw-id: //depot/perl@18356

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 20b68762f4..7296c484a4 100644
--- 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];