This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The less-than-zero branch needs to be the default always.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 23 Aug 2014 12:40:51 +0000 (08:40 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 23 Aug 2014 12:40:51 +0000 (08:40 -0400)
numeric.c

index 26d795c..daaec06 100644 (file)
--- 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