Re-instate stdio large file support via perlio.

p4raw-id: //depot/perl@7635

1 files changed, 9 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 1b5bd76a08..e372aedbe9 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;