From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Wed, 22 Nov 2000 13:51:37 +0000 (-0500)
Subject: Perlio_tell fix
X-Git-Tag: accepted/trunk/20130322.191538~33552
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=bf348c4016bc75478862ef0ba29139e4db9dc252;p=platform%2Fupstream%2Fperl.git

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
--- 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)