From: Rainer Tammer <tammer@tammer.net>
Date: Mon, 17 Nov 2008 08:53:34 +0000 (+0100)
Subject: Re: 5.8.9 RC1 report
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cdbb95e9cb5aae7bc0885e7a2361fa6fe145e0c;p=p5sagit%2Fp5-mst-13.2.git

Re: 5.8.9 RC1 report
Message-ID: <492122FE.5020001@tammer.net>

p4raw-id: //depot/perl@34861
---

diff --git a/makedef.pl b/makedef.pl
index b8d32cb..4456dd6 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -129,6 +129,7 @@ while (<CFG>) {
     $define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
     $define{$1} = 1 if /^\s*#\s*define\s+(PERL_\w+)\b/;
     $define{$1} = 1 if /^\s*#\s*define\s+(USE_\w+)\b/;
+    $define{$1} = 1 if /^\s*#\s*define\s+(HAS_\w+)\b/;
 }
 close(CFG);
 
@@ -404,6 +405,10 @@ elsif ($PLATFORM eq 'aix') {
 		     PL_statusvalue_vms
 		     PL_sys_intern
 		     )]);
+    skip_symbols([qw(
+		     Perl_signbit
+		     )])
+	if $define{'HAS_SIGNBIT'};
     emit_symbols([qw(
 		     boot_DynaLoader
 		     )]);