Fudge Config.pm so File::Spec does not croak.

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

diff --git a/makedef.pl b/makedef.pl
index 68fbd3e..9f490e0 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");
        }
 }
 
@@ -200,10 +200,6 @@ sub emit_symbols {
     }
 }
 
-unless ($PLATFORM eq 'vms') {
-    skip_symbols [qw(PL_my_inv_rand_max)];
-}
-
 if ($PLATFORM eq 'win32') {
     skip_symbols [qw(
                     PL_statusvalue_vms
@@ -426,7 +422,6 @@ unless ($define{'DEBUGGING'}) {
                    Perl_debprofdump
                    Perl_debstack
                    Perl_debstackptrs
-                   Perl_runops_debug
                    Perl_sv_peek
                    PL_block_type
                    PL_watchaddr
@@ -637,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
@@ -654,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'}) {
@@ -886,7 +883,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
@@ -1198,6 +1199,5 @@ PerlIO_setpos
 PerlIO_sprintf
 PerlIO_sv_dup
 PerlIO_tmpfile
-PerlIO_unread
 PerlIO_vsprintf
 perlsio_binmode