diff options
Diffstat (limited to 'ext/PerlIO/encoding/encoding.xs')
| -rw-r--r-- | ext/PerlIO/encoding/encoding.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs index df911ed705..a714a3d6d2 100644 --- a/ext/PerlIO/encoding/encoding.xs +++ b/ext/PerlIO/encoding/encoding.xs @@ -80,11 +80,11 @@ PerlIOEncode_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags) } IV -PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg) +PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs *tab) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); dSP; - IV code = PerlIOBuf_pushed(aTHX_ f, mode, Nullsv); + IV code = PerlIOBuf_pushed(aTHX_ f, mode, Nullsv,tab); SV *result = Nullsv; PUSHSTACKi(PERLSI_MAGIC); @@ -584,6 +584,7 @@ PerlIOEncode_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) } PerlIO_funcs PerlIO_encode = { + sizeof(PerlIO_funcs), "encoding", sizeof(PerlIOEncode), PERLIO_K_BUFFERED|PERLIO_K_DESTRUCT, |