Re: [perl #25270] 5.8.3 - POSIX::ctermid() on Solaris
authorAndy Dougherty <doughera@lafayette.edu>
Thu, 4 Mar 2004 14:41:07 +0000 (09:41 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 4 Mar 2004 21:52:18 +0000 (21:52 +0000)
Message-ID: <Pine.SOL.4.58.0403041438350.5863@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@22436

ext/POSIX/POSIX.xs

index 8a0188d..abafefe 100644 (file)
@@ -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)