diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-06 17:09:19 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-06 17:09:19 +0000 |
| commit | 4512cea31c94e21bbf22ca99a5bb525ea7a8c84c (patch) | |
| tree | 628d1180baf59ff2cf578562cdd942fc008cf06b /gnu/usr.bin/perl/perlsdio.h | |
| parent | e852ed17d905386f3bbad057fda2f07926227f89 (diff) | |
perl-5.6.0 + local changes
Diffstat (limited to 'gnu/usr.bin/perl/perlsdio.h')
| -rw-r--r-- | gnu/usr.bin/perl/perlsdio.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/perlsdio.h b/gnu/usr.bin/perl/perlsdio.h index efc52e1cd42..7afda681919 100644 --- a/gnu/usr.bin/perl/perlsdio.h +++ b/gnu/usr.bin/perl/perlsdio.h @@ -55,12 +55,18 @@ #define PerlIO_clearerr(f) clearerr(f) #define PerlIO_flush(f) Fflush(f) #define PerlIO_tell(f) ftell(f) +#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64) +#define ftell ftello +#endif #if defined(VMS) && !defined(__DECC) /* Old VAXC RTL doesn't reset EOF on seek; Perl folk seem to expect this */ # define PerlIO_seek(f,o,w) (((f) && (*f) && ((*f)->_flag &= ~_IOEOF)),fseek(f,o,w)) #else # define PerlIO_seek(f,o,w) fseek(f,o,w) #endif +#if defined(USE_64_BIT_STDIO) && defined(HAS_FSEEKO) && !defined(USE_FSEEK64) +#define fseek fseeko +#endif #ifdef HAS_FGETPOS #define PerlIO_getpos(f,p) fgetpos(f,p) #endif |