}
return RETVAL;
#else
+# ifdef WIN32
+ char flags = (char)block;
+ return ioctl(PerlIO_fileno(f), FIONBIO, &flags);
+# else
return -1;
+# endif
#endif
}
CODE:
if (handle) {
#ifdef PerlIO
- ST(0) = sv_newmortal();
#if PERL_VERSION < 8
Fpos_t pos;
+ ST(0) = sv_newmortal();
if (PerlIO_getpos(handle, &pos) != 0) {
ST(0) = &PL_sv_undef;
}
sv_setpvn(ST(0), (char *)&pos, sizeof(Fpos_t));
}
#else
+ ST(0) = sv_newmortal();
if (PerlIO_getpos(handle, ST(0)) != 0) {
ST(0) = &PL_sv_undef;
}
void
new_tmpfile(packname = "IO::File")
- char * packname
+ const char * packname
PREINIT:
OutputStream fp;
GV *gv;