EBCDIC: the non-printable characters are different.

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

diff --git a/makedef.pl b/makedef.pl
index 54d766f..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
@@ -633,9 +632,9 @@ my @layer_syms = qw(
                         PerlIOBase_eof
                         PerlIOBase_error
                         PerlIOBase_fileno
-                        PerlIOBase_setlinebuf
                         PerlIOBase_pushed
                         PerlIOBase_read
+                        PerlIOBase_setlinebuf
                         PerlIOBase_unread
                         PerlIOBuf_bufsiz
                         PerlIOBuf_fill
@@ -650,13 +649,15 @@ my @layer_syms = qw(
                         PerlIOBuf_tell
                         PerlIOBuf_unread
                         PerlIOBuf_write
-                        PerlIO_define_layer
+                        PerlIO_allocate
                         PerlIO_arg_fetch
+                        PerlIO_define_layer
                         PerlIO_pending
-                        PerlIO_allocate
                         PerlIO_push
                         PerlIO_sv_dup
-                        PerlIO_unread
+                        PL_def_layerlist
+                        PL_known_layers
+                        PL_perlio
 );
 
 if ($define{'USE_PERLIO'}) {
@@ -779,6 +780,7 @@ if ($PLATFORM eq 'win32') {
                            Perl_thread_create
                            Perl_win32_init
                            RunPerl
+                           win32_async_check
                            win32_errno
                            win32_environ
                            win32_abort
@@ -882,7 +884,11 @@ if ($PLATFORM eq 'win32') {
                            win32_getpid
                            win32_crypt
                            win32_dynaload
-
+                           win32_get_childenv
+                           win32_free_childenv
+                           win32_clearenv
+                           win32_get_childdir
+                           win32_free_childdir
                            win32_stdin
                            win32_stdout
                            win32_stderr
@@ -1053,6 +1059,7 @@ foreach my $symbol (qw(
                        nw_setprotoent
                        nw_setservent
                        nw_setsockopt
+                       nw_inet_ntoa
                        nw_shutdown
                        nw_crypt
                        nw_execvp
@@ -1194,6 +1201,5 @@ PerlIO_setpos
 PerlIO_sprintf
 PerlIO_sv_dup
 PerlIO_tmpfile
-PerlIO_unread
 PerlIO_vsprintf
 perlsio_binmode