summaryrefslogtreecommitdiff
path: root/pp_sort.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2013-11-16 00:01:32 +0000
committerDavid Mitchell <davem@iabyn.com>2013-11-16 00:01:32 +0000
commit659c4b9601a634cd50919970684ee46143183238 (patch)
treeeb876c46404f7b1e190a307d6831e0bc6d651921 /pp_sort.c
parent16f3356ebb78fba83c909d19134ee12e98557f24 (diff)
downloadperl-659c4b9601a634cd50919970684ee46143183238.tar.gz
Revert "make perl core quiet under -Wfloat-equal"
A suggested way of avoiding the the warning on nv1 != nv2 by replacing it with (nv1 < nv2 || nv1 > nv2), has too many issues with NaN. [perl #120538]. I haven't found any other way of selectively disabling the warning, so for now I'm just reverting the whole commit. This reverts commit c279c4550ce59702722d0921739b1a1b92701b0d.
Diffstat (limited to 'pp_sort.c')
-rw-r--r--pp_sort.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sort.c b/pp_sort.c
index bac92f9902..c8fe08e753 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1931,7 +1931,7 @@ S_sv_i_ncmp(pTHX_ SV *const a, SV *const b)
? amagic_call(left, right, meth, 0) \
: NULL;
-#define SORT_NORMAL_RETURN_VALUE(val) (((val) > 0) ? 1 : ((val < 0) ? -1 : 0))
+#define SORT_NORMAL_RETURN_VALUE(val) (((val) > 0) ? 1 : ((val) ? -1 : 0))
static I32
S_amagic_ncmp(pTHX_ SV *const a, SV *const b)