From 39f7a87036eb8d13c207511143dc7f2e620b3891 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 14 Apr 2003 17:35:51 +0000 Subject: Introduce PerlIO::get_layers() to allow people to peek at the PerlIO layer stack. p4raw-id: //depot/perl@19203 --- perlio.h | 1 + 1 file changed, 1 insertion(+) (limited to 'perlio.h') diff --git a/perlio.h b/perlio.h index b5082eadf9..f1b5ede6bc 100644 --- a/perlio.h +++ b/perlio.h @@ -107,6 +107,7 @@ extern PerlIO_funcs *PerlIO_find_layer(pTHX_ const char *name, STRLEN len, extern PerlIO *PerlIO_push(pTHX_ PerlIO *f, PerlIO_funcs *tab, const char *mode, SV *arg); extern void PerlIO_pop(pTHX_ PerlIO *f); +extern AV* PerlIO_get_layers(pTHX_ PerlIO *f); extern void PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param); #endif /* PerlIO */ -- cgit v1.2.1