Adjustment to symbol lists after latest changes (by Jarkko)

p4raw-id: //depot/perl@29066
schwern · Oct 20, 2006 · f1791e5 · f1791e5
1 parent 8b84d7d
commit f1791e5
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/makedef.pl b/makedef.pl
@@ -716,6 +716,7 @@ sub emit_symbols {
 		    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 @@ sub readvar {
 	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
@@ -23,6 +23,7 @@ PerlIO_rewind
 PerlIO_setpos
 PerlIO_sprintf
 PerlIO_stdoutf
+PerlIO_teardown
 PerlIO_tmpfile
 PerlIO_ungetc
 PerlIO_vprintf