From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 20 Oct 2006 15:31:36 +0000 (+0000)
Subject: Adjustment to symbol lists after latest changes (by Jarkko)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1791e53cb2920e7259f77ab71f78f70e73e7968;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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