print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
if ($PLATFORM =~ /^win(?:32|ce)$/) {
- (my $dll = ($define{PERL_DLL} || "perl511")) =~ s/\.dll$//i;
+ (my $dll = ($define{PERL_DLL} || "perl513")) =~ s/\.dll$//i;
print "LIBRARY $dll\n";
# The DESCRIPTION module definition file statement is not supported
# by VC7 onwards.
}
elsif ($PLATFORM eq 'netware') {
if ($FILETYPE eq 'def') {
- print "LIBRARY perl511\n";
+ print "LIBRARY perl513\n";
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}
PL_sharedsv_space_mutex
PL_dollarzero_mutex
PL_hints_mutex
+ PL_my_ctx_mutex
PL_perlio_mutex
PL_regdupe
Perl_parser_dup
unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
skip_symbols [qw(
- PL_my_ctx_mutex
PL_my_cxt_index
PL_my_cxt_list
PL_my_cxt_size
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
}
+ unless ($define{'USE_ITHREADS'}) {
+ # XXX needed for XS extensions that define PERL_CORE
+ emit_symbol("PL_curinterp");
+ }
# XXX AIX seems to want the perlvars.h symbols, for some reason
if ($PLATFORM eq 'aix' or $PLATFORM eq 'os2') { # OS/2 needs PL_thr_key
my $glob = readvar($perlvars_h);