X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makedef.pl;h=948066beb084b52427915d7b975f7ddb8ccc2e27;hb=0ecd3ba2f9cc10124e1b1548816d989cfc59a802;hp=ed882aeaf0d77ba9b851c2b301b16b98b42ce6c2;hpb=30def704cafa11862a4b1be8a6e882e725a22b02;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makedef.pl b/makedef.pl
index ed882ae..948066b 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -161,15 +161,7 @@ EXPORTS
 ---EOP---
 }
 elsif ($PLATFORM eq 'aix') {
-    $OSVER = `uname -v`;
-    chop $OSVER;
-    $OSREL = `uname -r`;
-    chop $OSREL;
-    if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) {
-	print "#! .\n";
-    } else {
-	print "#!\n";
-    }
+    print "#!\n";
 }
 
 my %skip;
@@ -555,8 +547,11 @@ my @layer_syms = qw(
 			 PerlIOBase_eof
 			 PerlIOBase_error
 			 PerlIOBase_fileno
+			 PerlIOBase_setlinebuf
+			 PerlIOBase_pushed
+			 PerlIOBase_read
+		         PerlIOBase_unread
 			 PerlIOBuf_bufsiz
-			 PerlIOBuf_fdopen
 			 PerlIOBuf_fill
 			 PerlIOBuf_flush
 			 PerlIOBuf_get_cnt
@@ -564,15 +559,15 @@ my @layer_syms = qw(
 			 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_arg_fetch
 			 PerlIO_pending
+			 PerlIO_allocate
 			 PerlIO_push
 			 PerlIO_unread
 );
@@ -932,8 +927,11 @@ PerlIOBuf_set_ptrcnt
 PerlIOBuf_get_cnt
 PerlIOBuf_get_ptr
 PerlIOBuf_bufsiz
-PerlIOBuf_setlinebuf
 PerlIOBase_clearerr
+PerlIOBase_setlinebuf
+PerlIOBase_pushed
+PerlIOBase_read
+PerlIOBase_unread
 PerlIOBase_error
 PerlIOBase_eof
 PerlIOBuf_tell
@@ -941,9 +939,7 @@ PerlIOBuf_seek
 PerlIOBuf_write
 PerlIOBuf_unread
 PerlIOBuf_read
-PerlIOBuf_reopen
 PerlIOBuf_open
-PerlIOBuf_fdopen
 PerlIOBase_fileno
 PerlIOBuf_pushed
 PerlIOBuf_fill
@@ -953,6 +949,8 @@ PerlIO_define_layer
 PerlIO_pending
 PerlIO_unread
 PerlIO_push
+PerlIO_allocate
+PerlIO_arg_fetch
 PerlIO_apply_layers
 perlsio_binmode
 PerlIO_binmode