This is a live mirror of the Perl 5 development currently hosted at
Fix LFS with -Duseperlio in Solaris. Reported in
authorRobin Barker <>
Mon, 23 Aug 1999 16:41:11 +0000 (17:41 +0100)
committerJarkko Hietaniemi <>
Sat, 4 Sep 1999 15:28:11 +0000 (15:28 +0000)
Subject: [ID 19990823.009] [PATCH perl5.005_61] typo in perl.h
Message-Id: <>

and later (in private email) found to be dependent
on useperlio.

Mental note: the cpp magic done in perlsdio.h (and assumedly
also in perlsfio.h) may cause trouble later with lfs because
both the perlio scheme by Perl and the lfs support by vendors
like to play cpp games to map the stdio namespace back and forth.
The problem fixed here (fseek vs fseeko, ftell vs ftello) may be
just the beginning.

p4raw-id: //depot/cfgperl@4071


index 7a5924a..4c22d3b 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -385,14 +385,22 @@ PerlIO_vprintf(PerlIO *f, const char *fmt, va_list ap)
 PerlIO_tell(PerlIO *f)
+#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64)
+ return ftello(f);
  return ftell(f);
 #undef PerlIO_seek
 PerlIO_seek(PerlIO *f, Off_t offset, int whence)
+#if defined(USE_64_BIT_STDIO) && defined(HAS_FSEEKO) && !defined(USE_FSEEK64)
+ return fseeko(f,offset,whence);
  return fseek(f,offset,whence);
 #undef PerlIO_rewind