Perl_sys_intern_clear
Perl_sys_intern_dup
Perl_sys_intern_init
+ Perl_my_sprintf
PL_cryptseen
PL_opsave
PL_statusvalue_vms
PL_sharedsv_space_mutex
PL_dollarzero_mutex
PL_hints_mutex
+ PL_perlio_mutex
+ PL_regdupe
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
Perl_sharedsv_thrcnt_inc
Perl_sharedsv_unlock
Perl_stashpv_hvname_match
- Perl_regdupe
+ Perl_regdupe_internal
)];
}
emit_symbols \@layer_syms;
emit_symbols [qw(perlsio_binmode)];
}
+ if ($define{'USE_ITHREADS'}) {
+ emit_symbols [qw(
+ PL_perlio_mutex
+ )];
+ }
+ else {
+ skip_symbols [qw(
+ PL_perlio_mutex
+ )];
+ }
} else {
# -Uuseperlio
# Skip the PerlIO layer symbols - although
# nothing should have exported them anyway.
skip_symbols \@layer_syms;
- skip_symbols [qw(perlsio_binmode)];
- skip_symbols [qw(PL_def_layerlist PL_known_layers PL_perlio)];
+ skip_symbols [qw(
+ perlsio_binmode
+ PL_def_layerlist
+ PL_known_layers
+ PL_perlio
+ PL_perlio_debug_fd
+ PL_perlio_fd_refcnt
+ PL_perlio_fd_refcnt_size
+ )];
# Also do NOT add abstraction symbols from $perlio_sym
# abstraction is done as #define to stdio