#endif
/*
* This file provides those parts of PerlIO abstraction
- * which are not #defined in perlio.h.
+ * which are not #defined in iperlsys.h.
* Which these are depends on various Configure #ifdef's
*/
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