Changeset 14556 for trunk/base


Ignore:
Timestamp:
Oct 11, 2005, 1:06:51 PM (15 years ago)
Author:
jberry
Message:

Alter foreachport to avoid losing a level of quoting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r14531 r14556  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.119 2005/10/10 14:19:04 jberry Exp $
     5# $Id: port.tcl,v 1.120 2005/10/11 13:06:51 jberry Exp $
    66#
    77# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
     
    380380proc foreachport {portlist block} {
    381381        foreach portspec $portlist {
    382                 array set port $portspec
    383                 uplevel 1 "
    384                         set porturl \"$port(url)\"
    385                         set portname \"$port(name)\"
    386                         set portversion \"$port(version)\"
     382                uplevel 1 "array set portspec { $portspec }"
     383                uplevel 1 {
     384                        set porturl $portspec(url)
     385                        set portname $portspec(name)
     386                        set portversion $portspec(version)
    387387                        array unset variations
    388                         array set variations { $port(variants) }
     388                        array set variations [array get $portspec(variants)]
    389389                        array unset options
    390                         array set options { $port(options) }
    391                         $block
    392                         "
     390                        array set options [array get $portspec(options)]
     391                }
     392                uplevel 1 $block
    393393        }
    394394}
Note: See TracChangeset for help on using the changeset viewer.