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.
- if ($CCTYPE !~ /^MSVC7/ && $CCTYPE !~ /^MSVC8/ && $CCTYPE !~ /^MSVC9/) {
+ if ($CCTYPE =~ /^(?:MSVC60|GCC|BORLAND)$/) {
print "DESCRIPTION 'Perl interpreter'\n";
}
print "EXPORTS\n";
}
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_my_ctx_mutex
PL_perlio_mutex
PL_regdupe
+ Perl_clone_params_del
+ Perl_clone_params_new
Perl_parser_dup
Perl_dirp_dup
Perl_cx_dup
Perl_mro_meta_dup
Perl_re_dup_guts
Perl_sv_dup
+ Perl_sv_dup_inc
Perl_rvpv_dup
Perl_hek_dup
Perl_sys_intern_dup
# variables
-if ($define{'MULTIPLICITY'}) {
- for my $f ($perlvars_h, $intrpvar_h) {
+if ($define{'MULTIPLICITY'} && $define{PERL_GLOBAL_STRUCT}) {
+ for my $f ($perlvars_h) {
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);
my $glob = readvar($perlvars_h);
emit_symbols $glob;
}
- unless ($define{'MULTIPLICITY'}) {
+ unless ($define{MULTIPLICITY}) {
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
}