Rename ext/Module/Pluggable to ext/Module-Pluggable

[perl5.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 96ca14d..4456dd6 100644 (file)
--- 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);
 
@@ -159,7 +160,7 @@ my $sym_ord = 0;
 print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
 
 if ($PLATFORM =~ /^win(?:32|ce)$/) {
-    (my $dll = ($define{PERL_DLL} || "perl59")) =~ s/\.dll$//i;
+    (my $dll = ($define{PERL_DLL} || "perl511")) =~ s/\.dll$//i;
     print "LIBRARY $dll\n";
     # The DESCRIPTION module definition file statement is not supported
     # by VC7 onwards.
@@ -215,7 +216,7 @@ elsif ($PLATFORM eq 'aix') {
 }
 elsif ($PLATFORM eq 'netware') {
        if ($FILETYPE eq 'def') {
-       print "LIBRARY perl59\n";
+       print "LIBRARY perl511\n";
        print "DESCRIPTION 'Perl interpreter for NetWare'\n";
        print "EXPORTS\n";
        }
@@ -404,6 +405,13 @@ elsif ($PLATFORM eq 'aix') {
                     PL_statusvalue_vms
                     PL_sys_intern
                     )]);
+    skip_symbols([qw(
+                    Perl_signbit
+                    )])
+       if $define{'HAS_SIGNBIT'};
+    emit_symbols([qw(
+                    boot_DynaLoader
+                    )]);
 }
 elsif ($PLATFORM eq 'os2') {
     emit_symbols([qw(
@@ -593,7 +601,6 @@ unless ($define{'DEBUGGING'}) {
                    Perl_debstack
                    Perl_debstackptrs
                    Perl_pad_sv
-                   Perl_sv_peek
                    Perl_hv_assert
                    PL_block_type
                    PL_watchaddr
@@ -667,6 +674,7 @@ else {
                    Perl_dump_mstats
                    Perl_get_mstats
                    Perl_malloced_size
+                   Perl_malloc_good_size
                    MallocCfg_ptr
                    MallocCfgP_ptr
                    )];
@@ -734,7 +742,7 @@ unless ($define{'USE_ITHREADS'}) {
                    Perl_he_dup
                    Perl_mg_dup
                    Perl_mro_meta_dup
-                   Perl_re_dup
+                   Perl_re_dup_guts
                    Perl_sv_dup
                    Perl_rvpv_dup
                    Perl_hek_dup
@@ -823,6 +831,12 @@ unless ($define{'PERL_NEED_TIMESBASE'}) {
                    )];
 }
 
+unless ($define{'DEBUG_LEAKING_SCALARS'}) {
+    skip_symbols [qw(
+                   PL_sv_serial
+                   )];
+}
+
 unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
     skip_symbols [qw(
                    PL_dumper_fd