diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-23 20:49:02 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-23 20:49:02 +0000 |
commit | e3f3bf95bcb81efe35cb0f0d3e3528d5c002dcec (patch) | |
tree | 090c6552ac62310d43952cdb36996c0e1a5e1f69 /perlio.h | |
parent | 1141d9f89ca1cb89e46951e8afc784c7b4862cd2 (diff) | |
download | perl-e3f3bf95bcb81efe35cb0f0d3e3528d5c002dcec.tar.gz |
Perlio internals re-organized.
- open process creates AV of layer/arg pairs
(appends layers from open() or open.pm to default list).
- push arg is now an SV.
- layer ->Open get passed the AV
- open is no longer mandatory method.
- topmost layer that has ->Open method does the open
- any layers above are pushed once that returns.
- vtable re-ordered so dummy layers need only provide push/pop methods.
p4raw-id: //depot/perlio@9314
Diffstat (limited to 'perlio.h')
-rw-r--r-- | perlio.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -82,7 +82,7 @@ typedef PerlIOl *PerlIO; extern void PerlIO_define_layer (pTHX_ PerlIO_funcs *tab); extern SV * PerlIO_find_layer (pTHX_ const char *name, STRLEN len); -extern PerlIO * PerlIO_push (pTHX_ PerlIO *f,PerlIO_funcs *tab,const char *mode,const char *arg,STRLEN len); +extern PerlIO * PerlIO_push (pTHX_ PerlIO *f,PerlIO_funcs *tab,const char *mode,SV *arg); extern void PerlIO_pop (pTHX_ PerlIO *f); #endif /* PerlIO */ |