Redo #7679 with LFs instead of CRLFs.

[p5sagit/p5-mst-13.2.git] / win32 / win32.c

diff --git a/win32/win32.c b/win32/win32.c
index e4e553c..f28efa2 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -977,31 +977,31 @@ chown(const char *path, uid_t owner, gid_t group)
     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)
 {
@@ -2365,11 +2365,11 @@ win32_pipe(int *pfd, unsigned int size, int mode)
 
 /*
  * 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
@@ -2443,11 +2443,11 @@ win32_popen(const char *command, const char *mode)
     }
 
     /* 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
+#ifdef USE_PERLIO
+    return (PerlIO_fdopen(p[parent], (char *)mode));
+#else
+    return (fdopen(p[parent], (char *)mode));
+#endif
 
 cleanup:
     /* we don't need to check for errors here */
@@ -2467,7 +2467,7 @@ cleanup:
  */
 
 DllExport int
-win32_pclose(PerlIO *pf)\r
+win32_pclose(PerlIO *pf)
 {
 #ifdef USE_RTL_POPEN
     return _pclose(pf);
@@ -2477,7 +2477,7 @@ win32_pclose(PerlIO *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);
@@ -2489,11 +2489,11 @@ win32_pclose(PerlIO *pf)
         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;
 
@@ -2755,13 +2755,13 @@ win32_open(const char *path, int flag, ...)
     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