From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 26 Aug 2000 05:24:00 +0000 (+0000)
Subject: More casting.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f56cddd7d02d4eaf77c11dfb507472f0aea4085;p=p5sagit%2Fp5-mst-13.2.git

More casting.

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

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 046e2f7..1b580cf 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -1453,7 +1453,7 @@ static int store_scalar(stcxt_t *cxt, SV *sv)
 
 		STORE_SCALAR(pv, len);
 		TRACEME(("ok (scalar 0x%"UVxf" '%s', length = %"IVdf")",
-			 PTR2UV(sv), SvPVX(sv), len));
+			 PTR2UV(sv), SvPVX(sv), (IV)len));
 
 	} else if (flags & SVp_NOK) {		/* SvNOKp(sv) => double */
 		NV nv = SvNV(sv);