Support long doubles in Storable.

Subject: Re: Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6735 on i686-linux-thread-multi-64int 2.2.14-5.0 (UNINSTALLED)
Message-ID: <Pine.GSO.4.05.10008211804210.10137-100000@localhost>

p4raw-id: //depot/perl@6746

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 1efbc0d..0cdad85 100644 (file)
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -1440,12 +1440,12 @@ SV *sv;
                        (unsigned long) sv, SvPVX(sv), len));
 
        } else if (flags & SVp_NOK) {           /* SvNOKp(sv) => double */
-               double nv = SvNV(sv);
+               NV nv = SvNV(sv);
 
                /*
                 * Watch for number being an integer in disguise.
                 */
-               if (nv == (double) (iv = I_V(nv))) {
+               if (nv == (NV) (iv = I_V(nv))) {
                        TRACEME(("double %lf is actually integer %ld", nv, iv));
                        goto integer;           /* Share code below */
                }
@@ -3527,7 +3527,7 @@ static SV *retrieve_double(cxt)
 stcxt_t *cxt;
 {
        SV *sv;
-       double nv;
+       NV nv;
 
        TRACEME(("retrieve_double (#%d)", cxt->tagnum));