From 3e7fad52f5035325be02b88baa00be6210e05fe9 Mon Sep 17 00:00:00 2001
From: Paul Davis <paul@linuxaudiosystems.com>
Date: Fri, 4 Apr 2014 15:25:56 -0400
Subject: fix conceptual error/thinko in EnvironmentalProtectionAgency when
 using unsetenv() while iterating over char** environ

---
 libs/pbd/epa.cc | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'libs/pbd/epa.cc')

diff --git a/libs/pbd/epa.cc b/libs/pbd/epa.cc
index c7a1d41b0e..0fc386072f 100644
--- a/libs/pbd/epa.cc
+++ b/libs/pbd/epa.cc
@@ -131,19 +131,26 @@ EnvironmentalProtectionAgency::restore () const
 void
 EnvironmentalProtectionAgency::clear () const
 {
-        char** the_environ = environ;
+	/* Copy the environment before using (g_)unsetenv() because on some
+	   platforms (maybe all?) this directly modifies the environ array,
+	   cause complications for iterating through it.
+	*/
 
-        for (size_t i = 0; the_environ[i]; ++i) {
-			
-                string estring = the_environ[i];
-                string::size_type equal = estring.find_first_of ('=');
+	vector<string> ecopy;
+
+        for (size_t i = 0; environ[i]; ++i) {
+		ecopy.push_back (environ[i]);
+	}
+
+	for (vector<string>::const_iterator e = ecopy.begin(); e != ecopy.end(); ++e) {
+                string::size_type equal = (*e).find_first_of ('=');
 			
                 if (equal == string::npos) {
                         /* say what? an environ value without = ? */
                         continue;
                 }
 			
-                string before = estring.substr (0, equal);
-                g_unsetenv(before.c_str());
+                string var_name = (*e).substr (0, equal);
+                g_unsetenv(var_name.c_str());
         }
 }
-- 
cgit v1.2.3