From ceaa1e840251e0447c45486cb406be00f6a0635d Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 Aug 2000 18:30:03 +0000
Subject: Nail the ID 20000828.023.

p4raw-id: //depot/perl@6891
---
 ext/Storable/Storable.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext/Storable')

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 5913b0ecf9..cd2a76b551 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -267,7 +267,7 @@ typedef struct stcxt {
 
 #define dSTCXT_PTR(T,name)							\
 	T name = (T)(perinterp_sv && SvIOK(perinterp_sv)\
-				? SvIVX(perinterp_sv) : NULL)
+				? INT2PTR(T, SvIVX(perinterp_sv)) : NULL)
 #define dSTCXT										\
 	dSTCXT_SV;										\
 	dSTCXT_PTR(stcxt_t *, cxt)
-- 
cgit v1.2.1