From: Andy Dougherty <doughera@lafayette.edu>
Date: Thu, 4 Mar 2004 14:41:07 +0000 (-0500)
Subject: Re: [perl #25270] 5.8.3 - POSIX::ctermid() on Solaris
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1fd7089baf415d5617365e9170dad30adc0908e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)