Perlio_tell fix

Message-Id: <001122135058.56e24@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@7809

diff --git a/perlsdio.h b/perlsdio.h
index 1eb10d3..0d6612b 100644 (file)
--- a/perlsdio.h
+++ b/perlsdio.h
@@ -45,6 +45,7 @@
                (feof(f) ? EOF : getc(f))
 #  define PerlIO_read(f,buf,count) \
                (feof(f) ? 0 : (SSize_t)fread(buf,1,count,f))
+#  define PerlIO_tell(f)               ftell(f)
 #else
 #  ifdef SOCKS_64BIT_BUG
 #    define PerlIO_getc(f)             Perl_do_s64_getc(f)