# perl.h logic duplication begins
if ($define{USE_ITHREADS}) {
- if (!$define{MULTIPLICITY} && !defined{PERL_OBJECT}) {
+ if (!$define{MULTIPLICITY} && !$define{PERL_OBJECT}) {
$define{MULTIPLICITY} = 1;
}
}
$define{PERL_IMPLICIT_CONTEXT} ||=
$define{USE_ITHREADS} ||
- $define{USE_THREADS} ||
+ $define{USE_5005THREADS} ||
$define{MULTIPLICITY} ;
if ($define{PERL_CAPI}) {
dlopen
dlsym
dlerror
+ dlclose
my_tmpfile
my_tmpnam
my_flock
)];
}
+unless ($define{'PERL_FLEXIBLE_EXCEPTIONS'}) {
+ skip_symbols [qw(
+ PL_protect
+ Perl_default_protect
+ Perl_vdefault_protect
+ )];
+}
+
if ($define{'MYMALLOC'}) {
emit_symbols [qw(
Perl_dump_mstats
PL_malloc_mutex
)];
}
+ else {
+ skip_symbols [qw(
+ PL_malloc_mutex
+ )];
+ }
}
else {
skip_symbols [qw(
PL_threadsv_names
PL_thrsv
PL_vtbl_mutex
- Perl_getTHR
- Perl_setTHR
Perl_condpair_magic
Perl_new_struct_thread
Perl_per_thread_magicals
unless ($define{'USE_ITHREADS'}) {
skip_symbols [qw(
PL_ptr_table
+ PL_op_mutex
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
if ($PLATFORM eq 'win32') {
foreach my $symbol (qw(
boot_DynaLoader
- Perl_getTHR
Perl_init_os_extras
- Perl_setTHR
Perl_thread_create
Perl_win32_init
RunPerl
- GetPerlInterpreter
- SetPerlInterpreter
win32_errno
win32_environ
win32_stdin