From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 25 Dec 2006 17:09:07 +0000 (+0000)
Subject: Fix a couple of warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11bf5ae46dc4ca1e784f868ece0ae607048cd9a7;p=p5sagit%2Fp5-mst-13.2.git

Fix a couple of warnings

p4raw-id: //depot/perl@29622
---

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 );
             }