From 76dba3655eb7a077b1c64d5683e366041ec8ebf4 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 12 Nov 2000 21:23:43 +0000 Subject: [ID 20001112.007] sfio's sftell isn't ftell Message-Id: p4raw-id: //depot/perl@7663 --- perlsfio.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perlsfio.h') 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) -- cgit v1.2.1