From 9d569fce7e05dcd53624075ce9247bfbc6ef263e Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 16 Apr 2003 12:13:07 +0000 Subject: [PATCH] Use the right prototype and a glob is fine (from Rafael). p4raw-id: //depot/perl@19235 --- lib/PerlIO.pm | 3 +-- universal.c | 3 ++- 2 files changed, 3 insertions(+), 3 deletions(-) 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 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 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, "*;@"); } -- 2.7.4