Perl_sys_intern_clear
Perl_sys_intern_dup
Perl_sys_intern_init
+ Perl_my_sprintf
PL_cryptseen
PL_opsave
PL_statusvalue_vms
Perl_debstackptrs
Perl_pad_sv
Perl_sv_peek
+ Perl_hv_assert
PL_block_type
PL_watchaddr
PL_watchok
PL_sharedsv_space
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
)];
}
)];
}
-unless ($define{'PERL_MAD'}) {
+if ($define{'PERL_MAD'}) {
+ skip_symbols [qw(
+ PL_nextval
+ PL_nexttype
+ )];
+} else {
skip_symbols [qw(
PL_madskills
PL_xmlfp
+ PL_lasttoke
+ PL_realtokenstart
+ PL_faketokens
+ PL_thismad
+ PL_thistoken
+ PL_thisopen
+ PL_thisstuff
+ PL_thisclose
+ PL_thiswhite
+ PL_nextwhite
+ PL_skipwhite
+ PL_endwhite
+ PL_curforce
+ Perl_pad_peg
+ Perl_xmldump_indent
+ Perl_xmldump_vindent
+ Perl_xmldump_all
+ Perl_xmldump_packsubs
+ Perl_xmldump_sub
+ Perl_xmldump_form
+ Perl_xmldump_eval
+ Perl_sv_catxmlsv
+ Perl_sv_catxmlpvn
+ Perl_sv_xmlpeek
+ Perl_do_pmop_xmldump
+ Perl_pmop_xmldump
+ Perl_do_op_xmldump
+ Perl_op_xmldump
)];
}
PerlIO_sv_dup
Perl_PerlIO_clearerr
Perl_PerlIO_close
+ Perl_PerlIO_context_layers
Perl_PerlIO_eof
Perl_PerlIO_error
Perl_PerlIO_fileno
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
1;
__DATA__
-# extra globals not included above.
-Perl_cxinc
-perl_alloc
-perl_alloc_using
-perl_clone
-perl_clone_using
-perl_construct
-perl_destruct
-perl_free
-perl_parse
-perl_run
# Oddities from PerlIO
PerlIO_binmode
PerlIO_getpos