EBCDIC: the non-printable characters are different.

[p5sagit/p5-mst-13.2.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index e4363e2..3bddf39 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -174,7 +174,7 @@ elsif ($PLATFORM eq 'netware') {
        if ($define{PERL_IMPLICIT_SYS}) {
        output_symbol("perl_get_host_info");
        output_symbol("perl_alloc_override");
-    output_symbol("perl_clone_host");
+       output_symbol("perl_clone_host");
        }
 }
 
@@ -422,7 +422,6 @@ unless ($define{'DEBUGGING'}) {
                    Perl_debprofdump
                    Perl_debstack
                    Perl_debstackptrs
-                   Perl_runops_debug
                    Perl_sv_peek
                    PL_block_type
                    PL_watchaddr
@@ -656,10 +655,9 @@ my @layer_syms = qw(
                         PerlIO_pending
                         PerlIO_push
                         PerlIO_sv_dup
-                        PerlIO_unread
-                        Perl_Idef_layerlist_ptr
-                        Perl_Iknown_layers_ptr
-                        Perl_Iperlio_ptr
+                        PL_def_layerlist
+                        PL_known_layers
+                        PL_perlio
 );
 
 if ($define{'USE_PERLIO'}) {
@@ -782,6 +780,7 @@ if ($PLATFORM eq 'win32') {
                            Perl_thread_create
                            Perl_win32_init
                            RunPerl
+                           win32_async_check
                            win32_errno
                            win32_environ
                            win32_abort
@@ -1060,6 +1059,7 @@ foreach my $symbol (qw(
                        nw_setprotoent
                        nw_setservent
                        nw_setsockopt
+                       nw_inet_ntoa
                        nw_shutdown
                        nw_crypt
                        nw_execvp
@@ -1201,6 +1201,5 @@ PerlIO_setpos
 PerlIO_sprintf
 PerlIO_sv_dup
 PerlIO_tmpfile
-PerlIO_unread
 PerlIO_vsprintf
 perlsio_binmode