From bf348c4016bc75478862ef0ba29139e4db9dc252 Mon Sep 17 00:00:00 2001 From: Charles Lane Date: Wed, 22 Nov 2000 08:51:37 -0500 Subject: Perlio_tell fix Message-Id: <001122135058.56e24@DUPHY4.Physics.Drexel.Edu> p4raw-id: //depot/perl@7809 --- perlsdio.h | 1 + 1 file changed, 1 insertion(+) (limited to 'perlsdio.h') diff --git a/perlsdio.h b/perlsdio.h index 1eb10d3abc..0d6612b533 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) -- cgit v1.2.1