From: Nick Ing-Simmons Date: Fri, 10 Nov 2000 13:25:52 +0000 (+0000) Subject: Re-instate stdio large file support via perlio. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c512ea76f9be6990cef1f44eb875c94f38b692b9;p=p5sagit%2Fp5-mst-13.2.git Re-instate stdio large file support via perlio. p4raw-id: //depot/perl@7635 --- diff --git a/perlio.c b/perlio.c index 1b5bd76..e372aed 100644 --- a/perlio.c +++ b/perlio.c @@ -1037,6 +1037,15 @@ PerlIO_funcs PerlIO_unix = { /*--------------------------------------------------------------------------------------*/ /* stdio as a layer */ +#if defined(USE_64_BIT_STDIO) && defined(HAS_FSEEKO) && !defined(USE_FSEEK64) +#define fseek fseeko +#endif + +#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64) +#define ftell ftello +#endif + + typedef struct { struct _PerlIO base;