diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2003-05-24 05:17:16 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-23 12:56:23 +0000 |
| commit | a0d8a30e4d6cdcb83a19818856ccc52190cdd95f (patch) | |
| tree | 1407e4e2e1dca38aa682ac894aa7b740a51edc09 /ext/PerlIO | |
| parent | db0b859feb1075204019fdea30072b46da24e0c5 (diff) | |
| download | perl-a0d8a30e4d6cdcb83a19818856ccc52190cdd95f.tar.gz | |
Stateful PerlIO implemented [Was: [perl #22261] Was: Unrecognised BOM...]
Message-Id: <1C123D88-8D10-11D7-B277-000393AE4244@dan.co.jp>
p4raw-id: //depot/perl@19593
Diffstat (limited to 'ext/PerlIO')
| -rw-r--r-- | ext/PerlIO/encoding/encoding.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs index 5f7b0dff5e..cd692628a1 100644 --- a/ext/PerlIO/encoding/encoding.xs +++ b/ext/PerlIO/encoding/encoding.xs @@ -113,12 +113,13 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs * code = -1; } else { -#ifdef USE_NEW_SEQUENCE + + /* $enc->renew */ PUSHMARK(sp); XPUSHs(result); PUTBACK; - if (call_method("new_sequence",G_SCALAR|G_EVAL) != 1 || SvTRUE(ERRSV)) { - Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support new_sequence", + if (call_method("renew",G_SCALAR|G_EVAL) != 1 || SvTRUE(ERRSV)) { + Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support renew method", arg); } else { @@ -126,7 +127,6 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs * result = POPs; PUTBACK; } -#endif e->enc = newSVsv(result); PUSHMARK(sp); XPUSHs(e->enc); |