X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1f1031fe96c14865e4f60fdd3a6a6ce073d190c1..11bf5ae46dc4ca1e784f868ece0ae607048cd9a7:/regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 9047b1d..49e65b0 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6396,7 +6396,6 @@ tryagain:
 		U32 num = 0;
                 SV *sv_dat = reg_scan_name(pRExC_state,
                     SIZE_ONLY ? REG_RSN_RETURN_NULL : REG_RSN_RETURN_DATA);
-                char sch = ch;                        
                 ch= (ch == '<') ? '>' : (ch == '{') ? '}' : '\'';
                 if (RExC_parse == name_start || *RExC_parse != ch)
                     vFAIL2("Sequence %.3s... not terminated",parse_start);
@@ -8387,7 +8386,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
             I32 n;
             if (name) {
                 for ( n=0; n<SvIVX(sv_dat); n++ ) {
-                    Perl_sv_catpvf(aTHX_ sv, "%s%d",( n ? "," : "" ),nums[n]);
+                    Perl_sv_catpvf(aTHX_ sv, "%s%"IVdf, ( n ? "," : "" ), nums[n]);
                 }
                 Perl_sv_catpvf(aTHX_ sv, " '%"SVf"'", *name );
             }