diff options
| author | Radu Greab <radu@netsoft.ro> | 2000-08-21 21:05:59 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-21 16:09:41 +0000 |
| commit | f27e1f0aacc94b7a6842aa4ce6eaf1892ef14b83 (patch) | |
| tree | 94ce4d62af9438cf828ddb034ebcbc00ceceeef2 | |
| parent | a781f7c3a63b8920b429cbd70eeb2d0df23c2281 (diff) | |
| download | perl-f27e1f0aacc94b7a6842aa4ce6eaf1892ef14b83.tar.gz | |
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
| -rw-r--r-- | ext/Storable/Storable.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 1efbc0dd65..0cdad85e38 100644 --- 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)); |