Re: [perl #25270] 5.8.3 - POSIX::ctermid() on Solaris

Message-ID: <Pine.SOL.4.58.0403041438350.5863@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@22436

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 8a0188d..abafefe 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1806,7 +1806,9 @@ access(filename, mode)
 
 char *
 ctermid(s = 0)
-       char *          s = 0;
+       char *          s = safemalloc((size_t) L_ctermid);
+    CLEANUP:
+       Safefree(s);
 
 char *
 cuserid(s = 0)