From 2b54f59ff973752abae83d93b744e48e13815b05 Mon Sep 17 00:00:00 2001 From: Yitzchak Scott-Thoennes Date: Sun, 7 Aug 2005 20:03:00 +0000 Subject: [PATCH] Re: [perl #36654] Inconsistent treatment of NaN Date: Aug 7, 2005 8:03 PM Message-ID: <20050807180308.GA2112@efn.org> Subject: Re: [perl #36654] Inconsistent treatment of NaN From: Yitzchak Scott-Thoennes Date: Wed, 10 Aug 2005 22:53:51 -0700 Message-ID: <20050811055351.GA2296@efn.org> p4raw-id: //depot/perl@25299 --- numeric.c | 15 +++++++++++++++ pod/perlop.pod | 4 ++-- 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/numeric.c b/numeric.c index 3015842..5eafdda 100644 --- a/numeric.c +++ b/numeric.c @@ -893,6 +893,21 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value) ++s; } + /* punt to strtod for NaN/Inf; if no support for it there, tough luck */ + +#ifdef HAS_STRTOD + if (*s == 'n' || *s == 'N' || *s == 'i' || *s == 'I') { + char *p = negative ? s-1 : s; + char *endp; + NV rslt; + rslt = strtod(p, &endp); + if (endp != p) { + *value = rslt; + return (char *)endp; + } + } +#endif + /* we accumulate digits into an integer; when this becomes too * large, we add the total to NV and start again */ diff --git a/pod/perlop.pod b/pod/perlop.pod index ba2ff9f..da7cef5 100644 --- a/pod/perlop.pod +++ b/pod/perlop.pod @@ -369,8 +369,8 @@ values, using them with "<=>" returns undef. NaN is not "<", "==", ">", returns true, as does NaN != anything else. If your platform doesn't support NaNs then NaN is just a string with numeric value 0. - perl -le '$a = NaN; print "No NaN support here" if $a == $a' - perl -le '$a = NaN; print "NaN support here" if $a != $a' + perl -le '$a = "NaN"; print "No NaN support here" if $a == $a' + perl -le '$a = "NaN"; print "NaN support here" if $a != $a' Binary "eq" returns true if the left argument is stringwise equal to the right argument. -- 2.7.4