From 265a12b8a5b81ab4d4d89f8673568d88db526282 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Sat, 24 Apr 2004 12:53:07 +0000 Subject: [PATCH] fix 64-bit casting error in change 22741 (uninit var warnings) p4raw-id: //depot/perl@22742 --- sv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.7.4