return 0;
}
-/*\r
- * XXX this needs strengthening (for PerlIO)\r
- * -- BKS, 11-11-200\r
-*/\r
-int mkstemp(const char *path)\r
-{\r
- dTHX;\r
- char buf[MAX_PATH+1];\r
- int i = 0, fd = -1;\r
-\r
-retry:\r
- if (i++ > 10) { /* give up */\r
- errno = ENOENT;\r
- return -1;\r
- }\r
- if (!GetTempFileNameA((LPCSTR)path, "plr", 1, buf)) {\r
- errno = ENOENT;\r
- return -1;\r
- }\r
- fd = PerlLIO_open3(buf, O_CREAT|O_RDWR|O_EXCL, 0600);\r
- if (fd == -1)\r
- goto retry;\r
- return fd;\r
-}\r
-\r
+/*
+ * XXX this needs strengthening (for PerlIO)
+ * -- BKS, 11-11-200
+*/
+int mkstemp(const char *path)
+{
+ dTHX;
+ char buf[MAX_PATH+1];
+ int i = 0, fd = -1;
+
+retry:
+ if (i++ > 10) { /* give up */
+ errno = ENOENT;
+ return -1;
+ }
+ if (!GetTempFileNameA((LPCSTR)path, "plr", 1, buf)) {
+ errno = ENOENT;
+ return -1;
+ }
+ fd = PerlLIO_open3(buf, O_CREAT|O_RDWR|O_EXCL, 0600);
+ if (fd == -1)
+ goto retry;
+ return fd;
+}
+
static long
find_pid(int pid)
{
/*
* a popen() clone that respects PERL5SHELL
- *\r
- * changed to return PerlIO* rather than FILE * by BKS, 11-11-2000\r
+ *
+ * changed to return PerlIO* rather than FILE * by BKS, 11-11-2000
*/
-DllExport PerlIO*\r
+DllExport PerlIO*
win32_popen(const char *command, const char *mode)
{
#ifdef USE_RTL_POPEN
}
/* we have an fd, return a file stream */
-#ifdef USE_PERLIO\r
- return (PerlIO_fdopen(p[parent], (char *)mode));\r
-#else\r
- return (fdopen(p[parent], (char *)mode));\r
-#endif\r
+ return (PerlIO_fdopen(p[parent], (char *)mode));
cleanup:
/* we don't need to check for errors here */
*/
DllExport int
-win32_pclose(PerlIO *pf)\r
+win32_pclose(PerlIO *pf)
{
#ifdef USE_RTL_POPEN
return _pclose(pf);
SV *sv;
LOCK_FDPID_MUTEX;
- sv = *av_fetch(w32_fdpid, PerlIO_fileno(pf), TRUE);\r
+ sv = *av_fetch(w32_fdpid, PerlIO_fileno(pf), TRUE);
if (SvIOK(sv))
childpid = SvIVX(sv);
return -1;
}
-#ifdef USE_PERLIO\r
- PerlIO_close(pf);\r
-#else\r
- fclose(pf);\r
-#endif\r
+#ifdef USE_PERLIO
+ PerlIO_close(pf);
+#else
+ fclose(pf);
+#endif
SvIVX(sv) = 0;
UNLOCK_FDPID_MUTEX;
return open(PerlDir_mapA(path), flag, pmode);
}
-/* close() that understands socket */\r
-extern int my_close(int); /* in win32sck.c */\r
-\r
+/* close() that understands socket */
+extern int my_close(int); /* in win32sck.c */
+
DllExport int
win32_close(int fd)
{
- return my_close(fd);\r
+ return my_close(fd);
}
DllExport int