Use the right prototype and a glob is fine (from Rafael).

p4raw-id: //depot/perl@19235

diff --git a/lib/PerlIO.pm b/lib/PerlIO.pm
index c89c068..61a748a 100644 (file)
--- a/lib/PerlIO.pm
+++ b/lib/PerlIO.pm
@@ -228,8 +228,7 @@ This can be used to see the effect of/bugs in the various layers e.g.
 
 The following returns the B<names> of the PerlIO layers on a filehandle.
 
-   my @layers = PerlIO::get_layers($fh);
-   # You can use also FH or *FH, the bare FH doesn't pass 'use strict'.
+   my @layers = PerlIO::get_layers($fh); # Or FH, *FH, "FH".
 
 The layers are returned in the order an open() or binmode() call would
 use them.  Note that the stack begins (normally) from C<stdio> or from

diff --git a/universal.c b/universal.c
index cecf17b..39a724d 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -219,7 +219,8 @@ Perl_boot_core_UNIVERSAL(pTHX)
     newXSproto("Internals::SvREFCNT",XS_Internals_SvREFCNT, file, "\\[$%@];$");
     newXSproto("Internals::hv_clear_placeholders",
                XS_Internals_hv_clear_placehold, file, "\\%");
-    newXS("PerlIO::get_layers", XS_PerlIO_get_layers, file);
+    newXSproto("PerlIO::get_layers",
+               XS_PerlIO_get_layers, file, "*;@");
 }