diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-13 20:21:57 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-13 20:21:57 +0000 |
| commit | a10525673ecdf376a72ebd9267ef94c761ff1705 (patch) | |
| tree | 610bbbc901ca3136c72e3313f193ab4b45c78455 /perlsfio.h | |
| parent | 14aaf8e8d5ef5f7630e198d7ed4c5b1ce477445f (diff) | |
| parent | 436e486158da40087b7328d1a4e2be3abcd680f8 (diff) | |
| download | perl-a10525673ecdf376a72ebd9267ef94c761ff1705.tar.gz | |
Integrate mainline ...
p4raw-id: //depot/perlio@7675
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) |