diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-20 20:41:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-20 20:41:20 +0000 |
| commit | 9582450d639afbf562aeadae29dab7e5f22e1815 (patch) | |
| tree | ee15837eab10e74c83e6fa6a0d4dfcd9011a479e /ext | |
| parent | 4b27a2c96afa0e623ce71f6936ffb9fd1548b608 (diff) | |
| download | perl-9582450d639afbf562aeadae29dab7e5f22e1815.tar.gz | |
Retract #17331, something broke (e.g. t/io/utf8.t became unhappy)
p4raw-id: //depot/perl@17332
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/PerlIO/Scalar/Scalar.xs | 5 | ||||
| -rw-r--r-- | ext/PerlIO/Via/Via.xs | 5 | ||||
| -rw-r--r-- | ext/PerlIO/encoding/encoding.xs | 5 |
3 files changed, 6 insertions, 9 deletions
diff --git a/ext/PerlIO/Scalar/Scalar.xs b/ext/PerlIO/Scalar/Scalar.xs index 5bbc11951e..314c0f317c 100644 --- a/ext/PerlIO/Scalar/Scalar.xs +++ b/ext/PerlIO/Scalar/Scalar.xs @@ -14,7 +14,7 @@ typedef struct } PerlIOScalar; IV -PerlIOScalar_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) +PerlIOScalar_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg) { IV code; PerlIOScalar *s = PerlIOSelf(f,PerlIOScalar); @@ -38,7 +38,7 @@ PerlIOScalar_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *ta s->var = newSVpvn("",0); } sv_upgrade(s->var,SVt_PV); - code = PerlIOBase_pushed(aTHX_ f,mode,Nullsv,tab); + code = PerlIOBase_pushed(aTHX_ f,mode,Nullsv); if ((PerlIOBase(f)->flags) & PERLIO_F_TRUNCATE) SvCUR(s->var) = 0; if ((PerlIOBase(f)->flags) & PERLIO_F_APPEND) @@ -263,7 +263,6 @@ PerlIOScalar_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) } PerlIO_funcs PerlIO_scalar = { - sizeof(PerlIO_funcs), "Scalar", sizeof(PerlIOScalar), PERLIO_K_BUFFERED|PERLIO_K_RAW, diff --git a/ext/PerlIO/Via/Via.xs b/ext/PerlIO/Via/Via.xs index 04c4d48906..d1ebab2ae3 100644 --- a/ext/PerlIO/Via/Via.xs +++ b/ext/PerlIO/Via/Via.xs @@ -123,9 +123,9 @@ PerlIOVia_method(pTHX_ PerlIO *f,char *method,CV **save,int flags,...) } IV -PerlIOVia_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) +PerlIOVia_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg) { - IV code = PerlIOBase_pushed(aTHX_ f,mode,Nullsv,tab); + IV code = PerlIOBase_pushed(aTHX_ f,mode,Nullsv); if (code == 0) { PerlIOVia *s = PerlIOSelf(f,PerlIOVia); @@ -559,7 +559,6 @@ PerlIOVia_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) } PerlIO_funcs PerlIO_object = { - sizeof(PerlIO_funcs), "Via", sizeof(PerlIOVia), PERLIO_K_BUFFERED|PERLIO_K_DESTRUCT, diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs index a714a3d6d2..df911ed705 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, PerlIO_funcs *tab) +PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); dSP; - IV code = PerlIOBuf_pushed(aTHX_ f, mode, Nullsv,tab); + IV code = PerlIOBuf_pushed(aTHX_ f, mode, Nullsv); SV *result = Nullsv; PUSHSTACKi(PERLSI_MAGIC); @@ -584,7 +584,6 @@ 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, |