diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-23 11:00:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-23 11:00:42 +0000 |
| commit | a999f61be32148694ba1c2837b1a303e42fd96b1 (patch) | |
| tree | b5846dc068063a409fe7e9f7b77cc89b3ee1cf35 /ext | |
| parent | 5e334b7bcf49bf053aa25da896a1ff98c12dd228 (diff) | |
| download | perl-a999f61be32148694ba1c2837b1a303e42fd96b1.tar.gz | |
Add pTHX_ to -Duseperlio API where it does not conflict with legacy stuff.
p4raw-id: //depot/perlio@9305
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.xs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 5d33303fff..f0ee229d7d 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -267,6 +267,7 @@ PerlIOEncode_close(PerlIO *f) Off_t PerlIOEncode_tell(PerlIO *f) { + dTHX; PerlIOBuf *b = PerlIOSelf(f,PerlIOBuf); /* Unfortunately the only way to get a postion is to back-translate, the UTF8-bytes we have buf..ptr and adjust accordingly. @@ -275,8 +276,9 @@ PerlIOEncode_tell(PerlIO *f) */ if ((PerlIOBase(f)->flags & PERLIO_F_RDBUF) && b->ptr < b->end) { + Size_t count = b->end - b->ptr; - PerlIO_push(f,&PerlIO_pending,"r",Nullch,0); + PerlIO_push(aTHX_ f,&PerlIO_pending,"r",Nullch,0); /* Save what we have left to read */ PerlIOSelf(f,PerlIOBuf)->bufsiz = count; PerlIO_unread(f,b->ptr,count); @@ -607,7 +609,7 @@ _utf8_off(sv) BOOT: { #if defined(USE_PERLIO) && !defined(USE_SFIO) - PerlIO_define_layer(&PerlIO_encode); + PerlIO_define_layer(aTHX_ &PerlIO_encode); #endif #include "iso8859.def" #include "EBCDIC.def" |