From f1791e53cb2920e7259f77ab71f78f70e73e7968 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 20 Oct 2006 15:31:36 +0000
Subject: Adjustment to symbol lists after latest changes (by Jarkko)

p4raw-id: //depot/perl@29066
---
 makedef.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'makedef.pl')

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
-- 
cgit v1.2.1