From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Aug 2014 12:40:51 +0000 (-0400)
Subject: The less-than-zero branch needs to be the default always.
X-Git-Tag: v5.21.4~580
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/3585840c77ee62aad99e7cf10028c1b1c8873935

The less-than-zero branch needs to be the default always.
---

diff --git a/numeric.c b/numeric.c
index 26d795c..daaec06 100644
--- a/numeric.c
+++ b/numeric.c
@@ -1352,9 +1352,8 @@ Perl_signbit(NV x) {
 #  ifdef Perl_fp_class_nzero
     if (x == 0)
         return Perl_fp_class_nzero(x);
-#  else
-    return (x < 0.0) ? 1 : 0;
 #  endif
+    return (x < 0.0) ? 1 : 0;
 }
 #endif