From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 16 Apr 2003 12:13:07 +0000 (+0000)
Subject: Use the right prototype and a glob is fine (from Rafael).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d569fce7e05dcd53624075ce9247bfbc6ef263e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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, "*;@");
 }