Update Changes.

[p5sagit/p5-mst-13.2.git] / perlsdio.h

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)