From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 5 Mar 2004 08:53:08 +0000 (+0000)
Subject: Change 22436 broke the Windows build.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ab23a19ef2035506d06b40c16360f845e997742;p=p5sagit%2Fp5-mst-13.2.git

Change 22436 broke the Windows build.
Fix by Steve Hay.

p4raw-id: //depot/perl@22441
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index abafefe..0919905 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1806,9 +1806,18 @@ access(filename, mode)
 
 char *
 ctermid(s = 0)
-	char *          s = safemalloc((size_t) L_ctermid);
+	char *          s = 0;
+    CODE:
+#ifdef HAS_CTERMID_R
+	s = safemalloc((size_t) L_ctermid);
+#endif
+	RETVAL = ctermid(s);
+    OUTPUT:
+	RETVAL
     CLEANUP:
+#ifdef HAS_CTERMID_R
 	Safefree(s);
+#endif
 
 char *
 cuserid(s = 0)