X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8a85dc4e6fdf7b2ed7c6cd4124c74094397d931d..b459063d13fd72246e4b59dcba764d7bacaf12c7:/makedef.pl

diff --git a/makedef.pl b/makedef.pl
index eb92719..1b77855 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -95,24 +95,20 @@ while (<CFG>) {
     $define{$1} = 1 if /^\s*#\s*define\s+(USE_ITHREADS)\b/;
     $define{$1} = 1 if /^\s*#\s*define\s+(USE_PERLIO)\b/;
     $define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
+    $define{$1} = 1 if /^\s*#\s*define\s+(PERL_IMPLICIT_SYS)\b/;
     $define{$1} = 1 if /^\s*#\s*define\s+(PERL_BINCOMPAT_5005)\b/;
 }
 close(CFG);
 
 if ($PLATFORM eq 'win32') {
     warn join(' ',keys %define)."\n";
-    if ($define{PERL_OBJECT} || $define{MULTIPLICITY}) {
-	print "LIBRARY Perl56\n";
-	print "DESCRIPTION 'Perl interpreter'\n";
-	print "EXPORTS\n";
+    print "LIBRARY Perl56\n";
+    print "DESCRIPTION 'Perl interpreter'\n";
+    print "EXPORTS\n";
+    if ($define{PERL_IMPLICIT_SYS}) {
 	output_symbol("perl_get_host_info");
 	output_symbol("perl_alloc_override");
     }
-    else {
-	print "LIBRARY Perl56\n";
-	print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
-	print "EXPORTS\n";
-    } 
 }
 elsif ($PLATFORM eq 'os2') {
     ($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
@@ -231,6 +227,7 @@ elsif ($PLATFORM eq 'aix') {
 		     Perl_safexrealloc
 		     Perl_same_dirent
 		     Perl_unlnk
+		     Perl_sys_intern_dup
 		     PL_cryptseen
 		     PL_opsave
 		     PL_statusvalue_vms
@@ -452,7 +449,7 @@ if ($define{'PERL_GLOBAL_STRUCT'}) {
 
 # functions from *.sym files
 
-my @syms = ($global_sym, $pp_sym, $globvar_sym);
+my @syms = ($global_sym, $globvar_sym); # $pp_sym is not part of the API
 
 if ($define{'USE_PERLIO'}) {
      push @syms, $perlio_sym;