From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 24 Apr 2004 12:53:07 +0000 (+0000)
Subject: fix 64-bit casting error in change 22741 (uninit var warnings)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=265a12b8a5b81ab4d4d89f8673568d88db526282;p=p5sagit%2Fp5-mst-13.2.git

fix 64-bit casting error in change 22741 (uninit var warnings)

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

diff --git a/sv.c b/sv.c
index 5e4bf72..076ee17 100644
--- a/sv.c
+++ b/sv.c
@@ -733,7 +733,7 @@ S_varname(pTHX_ GV *gv, char *gvtype, PADOFFSET targ,
     }
     else if (subscript_type == FUV_SUBSCRIPT_ARRAY) {
 	*SvPVX(name) = '$';
-	Perl_sv_catpvf(aTHX_ name, "[%"IVdf"]", aindex);
+	Perl_sv_catpvf(aTHX_ name, "[%"IVdf"]", (IV)aindex);
     }
     else if (subscript_type == FUV_SUBSCRIPT_WITHIN)
 	sv_insert(name, 0, 0,  "within ", 7);