In makedef.pl, skip Perl_signbit when HAS_SIGNBIT is defined.
authorNicholas Clark <nick@ccl4.org>
Tue, 19 Jul 2011 14:48:07 +0000 (16:48 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 1 Aug 2011 09:53:52 +0000 (11:53 +0200)
Previously this condition was only checked on AIX and VMS. However, as all
the other platforms don't have HAS_SIGNBIT defined, this simplifies the code
with no change in output.

makedef.pl

index ca224ba..2771cc1 100644 (file)
@@ -302,10 +302,6 @@ elsif ($PLATFORM eq 'aix') {
     skip_symbols([qw(
                     PL_statusvalue_vms
                     )]);
-    skip_symbols([qw(
-                    Perl_signbit
-                    )])
-       if $define{'HAS_SIGNBIT'};
 }
 elsif ($PLATFORM eq 'os2') {
     emit_symbols([qw(
@@ -480,10 +476,6 @@ elsif ($PLATFORM eq 'vms') {
     skip_symbols([qw(
                        PL_statusvalue_posix
                     )]);
-    skip_symbols([qw(
-                    Perl_signbit
-                    )])
-       if $define{'HAS_SIGNBIT'};
 }
 
 unless ($define{UNLINK_ALL_VERSIONS}) {
@@ -869,6 +861,12 @@ unless ($define{HAVE_INTERP_INTERN}) {
                   )];
 }
 
+if ($define{HAS_SIGNBIT}) {
+    skip_symbols([qw(
+                       Perl_signbit
+                  )])
+}
+
 if ($^O ne 'vms') {
     # VMS does its own thing for these symbols.
     skip_symbols [qw(PL_sig_handlers_initted