diff options
| -rw-r--r-- | lib/PerlIO.pm | 3 | ||||
| -rw-r--r-- | universal.c | 3 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/PerlIO.pm b/lib/PerlIO.pm index c89c0681d5..61a748aa05 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 cecf17b64b..39a724df47 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, "*;@"); } |