summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-07-28 14:16:44 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-07-28 14:16:44 +0000
commit94a175e1e66fdf300e5894aacd2a4d1ae811f692 (patch)
tree3d69751b4f8221e9743fd148f970f60a71de263f /perlio.c
parentf669481f50788dbb2da90ae1b62a4919ae804928 (diff)
downloadperl-94a175e1e66fdf300e5894aacd2a4d1ae811f692.tar.gz
Retract #20260.
p4raw-id: //depot/perl@20267
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/perlio.c b/perlio.c
index 24293c04f9..b0649df087 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2485,7 +2485,7 @@ PerlIOUnix_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count)
}
}
-Off_t
+IV
PerlIOUnix_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
int fd = PerlIOSelf(f, PerlIOUnix)->fd;
@@ -3061,18 +3061,18 @@ PerlIOStdio_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count)
return got;
}
-Off_t
+IV
PerlIOStdio_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio;
- return fseek(stdio, offset, whence);
+ return PerlSIO_fseek(stdio, offset, whence);
}
Off_t
PerlIOStdio_tell(pTHX_ PerlIO *f)
{
FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio;
- return ftell(stdio);
+ return PerlSIO_ftell(stdio);
}
IV
@@ -3713,7 +3713,7 @@ PerlIOBuf_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count)
return written;
}
-Off_t
+IV
PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
IV code;
@@ -3912,7 +3912,7 @@ PerlIOPending_close(pTHX_ PerlIO *f)
return PerlIO_close(f);
}
-Off_t
+IV
PerlIOPending_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
/*