This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix LFS with -Duseperlio in Solaris. Reported in
authorRobin Barker <RMBarker@cpan.org>
Mon, 23 Aug 1999 16:41:11 +0000 (17:41 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 4 Sep 1999 15:28:11 +0000 (15:28 +0000)
To: perl5-porters@perl.org
Subject: [ID 19990823.009] [PATCH perl5.005_61] typo in perl.h
Message-Id: <199908231541.QAA10043@tempest.npl.co.uk>

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

perlio.c

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)
 Off_t
 PerlIO_tell(PerlIO *f)
 {
+#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64)
+ return ftello(f);
+#else
  return ftell(f);
+#endif
 }
 
 #undef PerlIO_seek
 int
 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);
+#else
  return fseek(f,offset,whence);
+#endif
 }
 
 #undef PerlIO_rewind