From ca06c01c30b19d0094642f2e317dadf13d4509cd Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 16 Dec 2006 01:36:28 +0000
Subject: [PATCH] fix a cast warning in perly.c

p4raw-id: //depot/perl@29560
---
 perly.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perly.c b/perly.c
index 193bae3..e3f9357 100644
--- a/perly.c
+++ b/perly.c
@@ -174,7 +174,7 @@ yy_stack_print (pTHX_ const short *yyss, const short *yyssp, const YYSTYPE *yyvs
 	case toketype_i_tkval:
 #endif
 	case toketype_ival:
-	    PerlIO_printf(Perl_debug_log, " %8"IVdf, yyvs[start+i].ival);
+	    PerlIO_printf(Perl_debug_log, " %8"IVdf, (IV)yyvs[start+i].ival);
 	    break;
 	default:
 	    PerlIO_printf(Perl_debug_log, " %8"UVxf, (UV)yyvs[start+i].ival);
-- 
2.7.4