}
return RETVAL;
#else
+# ifdef WIN32
+ char flags = (char)block;
+ return ioctl(PerlIO_fileno(f), FIONBIO, &flags);
+# else
return -1;
+# endif
#endif
}
void
new_tmpfile(packname = "IO::File")
- char * packname
+ const char * packname
PREINIT:
OutputStream fp;
GV *gv;