Changeset 30395 for trunk/base


Ignore:
Timestamp:
Oct 26, 2007, 3:47:43 PM (12 years ago)
Author:
eridius@…
Message:

Why use a foreach loop to simulate [join]?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r30307 r30395  
    552552        if {[info exists ${command}.env]} {
    553553                # Flatten the environment string.
    554                 set the_environment ""
    555                 foreach str [set ${command}.env] {
    556                         set the_environment "$the_environment $str"
    557                 }
     554                set the_environment [join [set ${command}.env]]
    558555       
    559556                while {[regexp "^(?: *)(\[^= \]+)=(\"|'|)(\[^\"'\]*?)\\2(?: +|$)(.*)$" ${the_environment} matchVar key delimiter value remaining]} {
Note: See TracChangeset for help on using the changeset viewer.