diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-04 18:41:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-04 18:41:00 +0000 |
| commit | 86593e8d8ee0ffb23da66937d9707ed328109754 (patch) | |
| tree | 046facdf4a66948df9db1e79375ad3551e9e3048 /makedef.pl | |
| parent | 8b107d6cb2a0c976b0321c9b0efd1d21d07fe6a1 (diff) | |
| download | perl-86593e8d8ee0ffb23da66937d9707ed328109754.tar.gz | |
makedef.pl updates suggested by Chris Nandor; double-checking
the changes in AIX, OS/2 Win32 would be nice.
p4raw-id: //depot/perl@9021
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 37 |
1 files changed, 35 insertions, 2 deletions
diff --git a/makedef.pl b/makedef.pl index dbea24afe3..02305c2773 100644 --- a/makedef.pl +++ b/makedef.pl @@ -1,8 +1,9 @@ # # Create the export list for perl. # -# Needed by WIN32 and OS/2 for creating perl.dll -# and by AIX for creating libperl.a when -Dusershrplib is in effect. +# Needed by WIN32 and OS/2 for creating perl.dll, +# and by AIX for creating libperl.a when -Dusershrplib is in effect, +# and by MacOS Classic. # # reads global.sym, pp.sym, perlvars.h, intrpvar.h, thrdvar.h, config.h # On OS/2 reads miniperl.map as well @@ -464,7 +465,9 @@ unless ($define{'USE_ITHREADS'}) { Perl_re_dup Perl_sv_dup Perl_sys_intern_dup + Perl_ptr_table_clear Perl_ptr_table_fetch + Perl_ptr_table_free Perl_ptr_table_new Perl_ptr_table_clear Perl_ptr_table_free @@ -582,6 +585,36 @@ if ($define{'USE_PERLIO'}) { PerlIO_write )]; } + else { + # Skip the PerlIO New Generation symbols. + skip_symbols [qw( + PerlIOBase_clearerr + PerlIOBase_close + PerlIOBase_eof + PerlIOBase_error + PerlIOBase_fileno + PerlIOBuf_bufsiz + PerlIOBuf_fdopen + PerlIOBuf_fill + PerlIOBuf_flush + PerlIOBuf_get_cnt + PerlIOBuf_get_ptr + PerlIOBuf_open + PerlIOBuf_pushed + PerlIOBuf_read + PerlIOBuf_reopen + PerlIOBuf_seek + PerlIOBuf_set_ptrcnt + PerlIOBuf_setlinebuf + PerlIOBuf_tell + PerlIOBuf_unread + PerlIOBuf_write + PerlIO_define_layer + PerlIO_pending + PerlIO_push + PerlIO_unread + )]; + } } for my $syms (@syms) { |