From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 12 Nov 2000 21:23:43 +0000 (+0000)
Subject: [ID 20001112.007] sfio's sftell isn't ftell
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76dba3655eb7a077b1c64d5683e366041ec8ebf4;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001112.007] sfio's sftell isn't ftell
Message-Id: <E13v4bH-0000lN-00@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@7663
---

diff --git a/perlsfio.h b/perlsfio.h
index a736371..22f5427 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)