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

[source_changes at macosforge.org]

Revision: 30395
          http://trac.macosforge.org/projects/macports/changeset/30395
Author:   eridius at macports.org
Date:     2007-10-26 08:47:43 -0700 (Fri, 26 Oct 2007)

Log Message:
-----------
Why use a foreach loop to simulate [join]?

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

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2007-10-26 14:40:20 UTC (rev 30394)
+++ trunk/base/src/port1.0/portutil.tcl	2007-10-26 15:47:43 UTC (rev 30395)
@@ -551,10 +551,7 @@
 
 	if {[info exists ${command}.env]} {
 		# Flatten the environment string.
-		set the_environment ""
-		foreach str [set ${command}.env] {
-			set the_environment "$the_environment $str"
-		}
+		set the_environment [join [set ${command}.env]]
 	
 		while {[regexp "^(?: *)(\[^= \]+)=(\"|'|)(\[^\"'\]*?)\\2(?: +|$)(.*)$" ${the_environment} matchVar key delimiter value remaining]} {
 			set the_environment ${remaining}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20071026/c59d02e4/attachment.html