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 (file)
--- 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 (file)
--- 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;