diff options
| -rw-r--r-- | makedef.pl | 11 | ||||
| -rw-r--r-- | perlio.sym | 1 |
2 files changed, 12 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl index 5738763086..f401675b09 100644 --- a/makedef.pl +++ b/makedef.pl @@ -716,6 +716,7 @@ unless ($define{'USE_ITHREADS'}) { PL_sharedsv_space_mutex PL_dollarzero_mutex PL_hints_mutex + PL_perlio_mutex PL_regdupe Perl_dirp_dup Perl_cx_dup @@ -1096,6 +1097,16 @@ if ($define{'USE_PERLIO'}) { 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 diff --git a/perlio.sym b/perlio.sym index f97d750ad8..bca044cc27 100644 --- a/perlio.sym +++ b/perlio.sym @@ -23,6 +23,7 @@ PerlIO_rewind PerlIO_setpos PerlIO_sprintf PerlIO_stdoutf +PerlIO_teardown PerlIO_tmpfile PerlIO_ungetc PerlIO_vprintf |