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 /ext/Encode/Encode.xs | |
| parent | 543c00c93a3f7ccd573dc2e23ffd06654cf38058 (diff) | |
| download | perl-ecdeb87c58ecf41e283516bbe30cb8616ec66e13.tar.gz | |
Allow dup'ing of PerlIO::Scalar etc.
p4raw-id: //depot/perlio@13072
Diffstat (limited to 'ext/Encode/Encode.xs')
| -rw-r--r-- | ext/Encode/Encode.xs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index e7d8c6f5c7..31be63b90c 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -52,9 +52,8 @@ typedef struct } PerlIOEncode; SV * -PerlIOEncode_getarg(PerlIO *f) +PerlIOEncode_getarg(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags) { - dTHX; PerlIOEncode *e = PerlIOSelf(f,PerlIOEncode); SV *sv = &PL_sv_undef; if (e->enc) @@ -329,9 +328,9 @@ PerlIOEncode_tell(PerlIO *f) } PerlIO * -PerlIOEncode_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params) +PerlIOEncode_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params, int flags) { - if ((f = PerlIOBase_dup(aTHX_ f, o, params))) + if ((f = PerlIOBase_dup(aTHX_ f, o, params, flags))) { PerlIOEncode *fe = PerlIOSelf(f,PerlIOEncode); PerlIOEncode *oe = PerlIOSelf(o,PerlIOEncode); |