diff options
| author | Nicholas Clark <nick@ccl4.org> | 2000-11-12 21:23:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-13 00:02:48 +0000 |
| commit | 76dba3655eb7a077b1c64d5683e366041ec8ebf4 (patch) | |
| tree | b665a68daf5d956c9916dd044ead7acb1828188a /perlsfio.h | |
| parent | a6a714bd63c892b02b99c5d9a11e90c9a061423b (diff) | |
| download | perl-76dba3655eb7a077b1c64d5683e366041ec8ebf4.tar.gz | |
[ID 20001112.007] sfio's sftell isn't ftell
Message-Id: <E13v4bH-0000lN-00@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@7663
Diffstat (limited to 'perlsfio.h')
| -rw-r--r-- | perlsfio.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perlsfio.h b/perlsfio.h index a736371a32..22f5427f8c 100644 --- a/perlsfio.h +++ b/perlsfio.h @@ -35,7 +35,7 @@ extern int _stdprintf _ARG_((const char*, ...)); #define PerlIO_fileno(f) sffileno(f) #define PerlIO_clearerr(f) sfclrerr(f) #define PerlIO_flush(f) sfsync(f) -#define PerlIO_tell(f) sftell(f) +#define PerlIO_tell(f) sfseek(f,0,1|SF_SHARE) #define PerlIO_seek(f,o,w) sfseek(f,o,w) #define PerlIO_rewind(f) (void) sfseek((f),0L,0) #define PerlIO_tmpfile() sftmp(0) |