PerlIO_funcs *osLayer = &PerlIO_unix;
PL_def_layerlist = PerlIO_list_alloc(aTHX);
PerlIO_define_layer(aTHX_ & PerlIO_unix);
-#if defined(WIN32) && !defined(UNDER_CE)
+#if defined(WIN32)
PerlIO_define_layer(aTHX_ & PerlIO_win32);
#if 0
osLayer = &PerlIO_win32;
}
}
-Off_t
+IV
PerlIOUnix_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
int fd = PerlIOSelf(f, PerlIOUnix)->fd;
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
return written;
}
-Off_t
+IV
PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
IV code;
return PerlIO_close(f);
}
-Off_t
+IV
PerlIOPending_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
/*