From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 22 Feb 2001 23:25:45 +0000 (+0000)
Subject: With environ one must use safesysmalloc()/safesysfree().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b420006ebbdb2e59fddaa31a85c23d08eb999d4;p=p5sagit%2Fp5-mst-13.2.git

With environ one must use safesysmalloc()/safesysfree().

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

diff --git a/perl.c b/perl.c
index f199e46..83c1157 100644
--- a/perl.c
+++ b/perl.c
@@ -445,8 +445,9 @@ perl_destruct(pTHXx)
 	I32 i;
 
 	for (i = 0; environ[i]; i++)
-	    Safefree(environ[i]);
-	Safefree(environ);
+	    safesysfree(environ[i]);
+	/* Must use safesysfree() when working with environ. */
+	safesysfree(environ);		
 
 	environ = PL_origenviron;
     }