Nail the ID 20000828.023.

p4raw-id: //depot/perl@6891

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 5913b0e..cd2a76b 100644 (file)
--- 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)