my_tmpfile
my_tmpnam
my_flock
+ my_rmdir
+ my_mkdir
malloc_mutex
threads_mutex
nthreads
Perl_mfree
Perl_realloc
Perl_calloc
+ Perl_strdup
+ Perl_putenv
)];
if ($define{'USE_5005THREADS'} || $define{'USE_ITHREADS'}) {
emit_symbols [qw(
PerlIO_write
)];
}
- else {
+} else {
# Skip the PerlIO New Generation symbols.
skip_symbols [qw(
PerlIOBase_clearerr
PerlIO_push
PerlIO_unread
)];
- }
-}
+}
for my $syms (@syms) {
open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n";