From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 4 May 2003 18:00:40 +0000 (+0200)
Subject: Re: Bug in Storable???
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ddd445a464742b8bb4abd429bca2f5ea08318fe;p=p5sagit%2Fp5-mst-13.2.git

Re: Bug in Storable???
Message-Id: <87of2iwvkn.fsf@vran.herceg.de>

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

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;