More casting.

p4raw-id: //depot/perl@6837

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 046e2f7..1b580cf 100644 (file)
--- 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);