ctermid
get_sysinfo
Perl_OS2_init
+ Perl_OS2_init3
+ Perl_OS2_term
OS2_Perl_data
dlopen
dlsym
)];
}
+unless ($define{'USE_REENTRANT_API'}) {
+ skip_symbols [qw(
+ PL_reentrant_buffer
+ )];
+}
+
if ($define{'MYMALLOC'}) {
emit_symbols [qw(
Perl_dump_mstats
skip_symbols [qw(
PL_ptr_table
PL_op_mutex
+ PL_regex_pad
+ PL_regex_padav
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
sub try_symbol {
my $symbol = shift;
- return if $symbol !~ /^[A-Za-z]/;
+ return if $symbol !~ /^[A-Za-z_]/;
return if $symbol =~ /^\#/;
$symbol =~s/\r//g;
chomp($symbol);