X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/22d4bb9ccb8701e68f9243547d7e3a3c55f70908..76dba3655eb7a077b1c64d5683e366041ec8ebf4:/perlsfio.h

diff --git a/perlsfio.h b/perlsfio.h
index d0f6471..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)
@@ -52,10 +52,10 @@ extern int	_stdprintf _ARG_((const char*, ...));
 #define PerlIO_has_cntptr(f)		1       
 #define PerlIO_get_ptr(f)		((f)->next)
 #define PerlIO_get_cnt(f)		((f)->endr - (f)->next)
-#define PerlIO_canset_cnt(f)		1      
-#define PerlIO_fast_gets(f)		1        
-#define PerlIO_set_ptrcnt(f,p,c)	((f)->next = (unsigned char *)(p))          
-#define PerlIO_set_cnt(f,c)		1
+#define PerlIO_canset_cnt(f)		0
+#define PerlIO_fast_gets(f)		1
+#define PerlIO_set_ptrcnt(f,p,c)	STMT_START {(f)->next = (unsigned char *)(p); assert(FILE_cnt(f) == (c))} STMT_END
+#define PerlIO_set_cnt(f,c)		Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system");
 
 #define PerlIO_has_base(f)		1         
 #define PerlIO_get_base(f)		((f)->data)