Adjustment to symbol lists after latest changes (by Jarkko)
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 20 Oct 2006 15:31:36 +0000 (15:31 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 20 Oct 2006 15:31:36 +0000 (15:31 +0000)
p4raw-id: //depot/perl@29066

makedef.pl
perlio.sym

index 5738763..f401675 100644 (file)
@@ -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
index f97d750..bca044c 100644 (file)
@@ -23,6 +23,7 @@ PerlIO_rewind
 PerlIO_setpos
 PerlIO_sprintf
 PerlIO_stdoutf
+PerlIO_teardown
 PerlIO_tmpfile
 PerlIO_ungetc
 PerlIO_vprintf