Adjustment to symbol lists after latest changes (by Jarkko)

p4raw-id: //depot/perl@29066

diff --git a/makedef.pl b/makedef.pl
index 5738763..f401675 100644 (file)
--- 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 f97d750..bca044c 100644 (file)
--- 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