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";
- print "DESCRIPTION 'Perl interpreter'\n";
+ # The DESCRIPTION module definition file statement is not supported
+ # by VC7 onwards.
+ if ($CCTYPE !~ /^MSVC7/ && $CCTYPE !~ /^MSVC8/ && $CCTYPE !~ /^MSVC9/) {
+ print "DESCRIPTION 'Perl interpreter'\n";
+ }
print "EXPORTS\n";
if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
}
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";
}
)];
}
+unless ($define{'MULTIPLICITY'}) {
+ skip_symbols [qw(
+ PL_interp_size
+ PL_interp_size_5_10_0
+ )];
+}
+
+unless ($define{'PERL_GLOBAL_STRUCT'}) {
+ skip_symbols [qw(
+ PL_global_struct_size
+ )];
+}
+
unless ($define{'PERL_GLOBAL_STRUCT_PRIVATE'}) {
skip_symbols [qw(
PL_my_cxt_keys
try_symbol($symbol);
}
+try_symbol("init_Win32CORE") if $static_ext =~ /\bWin32CORE\b/;
+
# Now all symbols should be defined because
# next we are going to output them.