[108299] trunk/base/src/port1.0/portutil.tcl

[larryv at macports.org]

Revision: 108299
          https://trac.macports.org/changeset/108299
Author:   larryv at macports.org
Date:     2013-07-18 00:52:52 -0700 (Thu, 18 Jul 2013)
Log Message:
-----------
portutil.tcl: Just do string concatenation in append_to_environment_value.

Let's not do this string/list mix-and-match that happens everywhere else
in base.

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2013-07-18 01:45:32 UTC (rev 108298)
+++ trunk/base/src/port1.0/portutil.tcl	2013-07-18 07:52:52 UTC (rev 108299)
@@ -828,9 +828,9 @@
         # Parse out any delimiters. Is this even necessary anymore?
         regexp {^(['"])(.*)\1$} $value -> delim value
 
-        lappend env_key $value
+        append env_key " $value"
     }
-    catch {set env_key [join $env_key]}
+    catch {set env_key [string trimleft $env_key]}
 }
 
 # Return a string representation of the specified environment, for
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130718/c03839d2/attachment.html>