summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-09-25 07:13:13 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-09-25 07:13:13 +0000
commit5ff3f7a4e03a6b103d9e628865398e498e9a7968 (patch)
tree5884f57bd4a3baf1ad76e8ab3f81f12aa71a31da /perlio.c
parent46124e9ee58ad41479e5b089638f6c263bbddcb7 (diff)
downloadperl-5ff3f7a4e03a6b103d9e628865398e498e9a7968.tar.gz
big Configure update from Jarkko: sync metaconfig units; d_statblks fix
for Linux; hpux CMA-threads hints; ELF support for FreeBSD; beginnings of full-fledged 64-bit support (including support for: fseeko/ftello, Quad_t aka long long, hpux and irix 64-bits hints, new 64-bit constants in Fcntl) From: Jarkko Hietaniemi <jhi@iki.fi> Date: Fri, 11 Sep 1998 23:56:11 +0300 (EET DST) Message-Id: <199809112056.XAA04720@alpha.hut.fi> Subject: [PATCH] 5.005_51: Configure "Massive Attack" -- From: Jarkko Hietaniemi <jhi@cc.hut.fi> Date: 12 Sep 1998 09:44:25 +0300 Message-ID: <oeeaf45bzjq.fsf@alpha.hut.fi> Subject: Re: [PATCH] 5.005_51: Configure "Massive Attack" p4raw-id: //depot/perl@1889
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c13
1 files changed, 10 insertions, 3 deletions
diff --git a/perlio.c b/perlio.c
index 314881e57e..a1af870132 100644
--- a/perlio.c
+++ b/perlio.c
@@ -416,23 +416,30 @@ va_list ap;
return vfprintf(f,fmt,ap);
}
-
#undef PerlIO_tell
-long
+Off_t
PerlIO_tell(f)
PerlIO *f;
{
+#ifdef HAS_FTELLO
+ return ftello(f);
+#else
return ftell(f);
+#endif
}
#undef PerlIO_seek
int
PerlIO_seek(f,offset,whence)
PerlIO *f;
-off_t offset;
+Off_t offset;
int whence;
{
+#ifdef HAS_FSEEKO
+ return fseeko(f,offset,whence);
+#else
return fseek(f,offset,whence);
+#endif
}
#undef PerlIO_rewind