diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-21 11:56:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-21 11:56:33 +0000 |
| commit | 0ca13ac91eaa16b0aa057bdc5944a31b25769b3e (patch) | |
| tree | 488322f62f2e458891daffdaa0f607521fdc7881 /ext/PerlIO/encoding/encoding.xs | |
| parent | c6367843475544677d20a70a9a99d3c41aaec9ef (diff) | |
| parent | 3727c173a40b254b4b9641c2b2efa9a56ebf9e30 (diff) | |
| download | perl-0ca13ac91eaa16b0aa057bdc5944a31b25769b3e.tar.gz | |
Integrate perlio:
[ 17330]
PerlIO Layer implementation future proofing.
- Inspired by Nick C's suggestion add size of function table to the table
as a validation check.
- also optimize pseudo-layer code to avoid malloc/link of something
destined to be immediately popped & freed.
- Minor addition to pod/perliol.pod
[ 17335]
Fix bug in optimized pseudo-layers.
p4raw-link: @17335 on //depot/perlio: 00f5185623ac489efbed49ff4cbdf42316dcf5fd
p4raw-link: @17330 on //depot/perlio: 2dc2558e5965ed21842375d8cc89de68e0c966e2
p4raw-id: //depot/perl@17336
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, |