diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-20 15:31:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-20 15:31:36 +0000 |
| commit | f1791e53cb2920e7259f77ab71f78f70e73e7968 (patch) | |
| tree | ef2d46cfa4e694fb4d039bc7a9a55dd6ac2e9ab7 | |
| parent | 8b84d7dd02217bb6a27641e6dd03ba3749f6cbe6 (diff) | |
| download | perl-f1791e53cb2920e7259f77ab71f78f70e73e7968.tar.gz | |
Adjustment to symbol lists after latest changes (by Jarkko)
p4raw-id: //depot/perl@29066
| -rw-r--r-- | makedef.pl | 11 | ||||
| -rw-r--r-- | perlio.sym | 1 |
2 files changed, 12 insertions, 0 deletions
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 diff --git a/perlio.sym b/perlio.sym index f97d750ad8..bca044cc27 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 |