This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: 5.8.9 RC1 report
authorRainer Tammer <tammer@tammer.net>
Mon, 17 Nov 2008 08:53:34 +0000 (09:53 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 17 Nov 2008 08:25:49 +0000 (08:25 +0000)
Message-ID: <492122FE.5020001@tammer.net>

p4raw-id: //depot/perl@34861

makedef.pl

index b8d32cb..4456dd6 100644 (file)
@@ -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
                     )]);