From 3ddd445a464742b8bb4abd429bca2f5ea08318fe Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Sun, 4 May 2003 20:00:40 +0200 Subject: [PATCH] Re: Bug in Storable??? Message-Id: <87of2iwvkn.fsf@vran.herceg.de> p4raw-id: //depot/perl@19409 --- ext/Storable/Storable.xs | 2 +- ext/Storable/t/integer.t | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 86f8b65..41dffca 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -1960,7 +1960,7 @@ static int store_scalar(stcxt_t *cxt, SV *sv) #else SvIV_please(sv); - if (SvIOK(sv)) { + if (SvIOK_notUV(sv)) { iv = SvIV(sv); goto integer; /* Share code above */ } diff --git a/ext/Storable/t/integer.t b/ext/Storable/t/integer.t index 8b0e6c4..ec7961e 100644 --- a/ext/Storable/t/integer.t +++ b/ext/Storable/t/integer.t @@ -64,6 +64,8 @@ my @numbers = 0x7FFFFFFF, 0x80000000, 0x80000001, 0xFFFFFFFF, 0xDEADBEEF, # UV bounds $max_iv_p1, $max_uv_m1, $max_uv, $lots_of_9C, + # NV-UV conversion + 2559831922.0, ); plan tests => @processes * @numbers * 5; -- 2.7.4