A modified version of

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

diff --git a/makedef.pl b/makedef.pl
index 02305c2..88c2d88 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -277,6 +277,8 @@ elsif ($PLATFORM eq 'os2') {
                    my_tmpfile
                    my_tmpnam
                    my_flock
+                   my_rmdir
+                   my_mkdir
                    malloc_mutex
                    threads_mutex
                    nthreads
@@ -389,6 +391,8 @@ if ($define{'MYMALLOC'}) {
                    Perl_mfree
                    Perl_realloc
                    Perl_calloc
+                   Perl_strdup
+                   Perl_putenv
                    )];
     if ($define{'USE_5005THREADS'} || $define{'USE_ITHREADS'}) {
        emit_symbols [qw(
@@ -585,7 +589,7 @@ if ($define{'USE_PERLIO'}) {
                         PerlIO_write
                         )];
     }
-    else {
+} else {
        # Skip the PerlIO New Generation symbols.
        skip_symbols [qw(
                         PerlIOBase_clearerr
@@ -614,8 +618,7 @@ if ($define{'USE_PERLIO'}) {
                         PerlIO_push
                         PerlIO_unread
                        )];
-    }
-}
+} 
 
 for my $syms (@syms) {
     open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n";