diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-11-18 16:15:31 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-11-18 16:15:31 +0000 |
| commit | ecdeb87c58ecf41e283516bbe30cb8616ec66e13 (patch) | |
| tree | e1ef8fd5447d43d6d95b27dbe944326d44d40c42 /perlio.h | |
| parent | 543c00c93a3f7ccd573dc2e23ffd06654cf38058 (diff) | |
| download | perl-ecdeb87c58ecf41e283516bbe30cb8616ec66e13.tar.gz | |
Allow dup'ing of PerlIO::Scalar etc.
p4raw-id: //depot/perlio@13072
Diffstat (limited to 'perlio.h')
| -rw-r--r-- | perlio.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -178,6 +178,9 @@ extern void PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param); #define SEEK_END 2 #endif +#define PERLIO_DUP_CLONE 1 +#define PERLIO_DUP_FD 2 + /* --------------------- Now prototypes for functions --------------- */ START_EXTERN_C @@ -330,7 +333,7 @@ extern int PerlIO_getpos(PerlIO *, SV *); extern int PerlIO_setpos(PerlIO *, SV *); #endif #ifndef PerlIO_fdupopen -extern PerlIO *PerlIO_fdupopen(pTHX_ PerlIO *, CLONE_PARAMS *); +extern PerlIO *PerlIO_fdupopen(pTHX_ PerlIO *, CLONE_PARAMS *, int); #endif #if !defined(PerlIO_modestr) && !defined(PERLIO_IS_STDIO) extern char *PerlIO_modestr(PerlIO *, char *buf); |