Re: Why *not* use UNIVERSAL qw( isa can ) ; ??

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

diff --git a/makedef.pl b/makedef.pl
index 5fc7b82..ad51d81 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -633,9 +633,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 +650,16 @@ 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'}) {