diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-11-22 08:51:37 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-22 21:14:19 +0000 |
| commit | bf348c4016bc75478862ef0ba29139e4db9dc252 (patch) | |
| tree | 033e52f73cbff817d0d690a07d77ec8b9df4ffbe /perlsdio.h | |
| parent | dbfe7cc2a5ad8f3116eaed7c2bd1724b157d2a2f (diff) | |
| download | perl-bf348c4016bc75478862ef0ba29139e4db9dc252.tar.gz | |
Perlio_tell fix
Message-Id: <001122135058.56e24@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7809
Diffstat (limited to 'perlsdio.h')
| -rw-r--r-- | perlsdio.h | 1 |
1 files changed, 1 insertions, 0 deletions
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) |