X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/646ca9b2c4b7cf8e6d2771a171c1deb0b8a7852c..6bdeddd23b939aa3cc0ba14b253df11198918e70:/regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 603fe5b..99cb464 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1172,7 +1172,7 @@ is the recommended Unicode-aware way of saying
 	    SvUTF8_on(zlopp);						   \
 	    av_push(revcharmap, zlopp);					   \
 	} else {							   \
-	    char ooooff = uvc;					   	   \
+	    char ooooff = (char)uvc;					   	   \
 	    av_push(revcharmap, newSVpvn(&ooooff, 1));			   \
 	}								   \
         } STMT_END
@@ -6504,7 +6504,7 @@ S_reg_namedseq(pTHX_ RExC_state_t *pRExC_state, UV *valuep)
             *valuep = cp;
             return NULL;
         }
-	string = cp;
+	string = (char)cp;
         sv_str= newSVpvn(&string, 1);
     } else {
         /* fetch the charnames handler for this scope */