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 (file)
--- 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);