Changeset 134837 for trunk/base


Ignore:
Timestamp:
Apr 8, 2015, 2:51:23 PM (5 years ago)
Author:
jmr@…
Message:

replace eval with {*} in the last few applicable places

Location:
trunk/base
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/macports_util.tcl

    r116505 r134837  
    113113        if {[llength $args] > 1} {
    114114            set list [uplevel 1 [subst -nocommands {lindex [set $varName] $idx}]]
    115             set item [eval ldindex list [lrange $args 1 end]]
     115            set item [ldindex list {*}[lrange $args 1 end]]
    116116            uplevel 1 [subst {lset $varName $idx [list $list]}]
    117117        } else {
  • trunk/base/src/package1.0/portmpkg.tcl

    r119620 r134837  
    8787    # get the union of depends_run and depends_lib
    8888    set depends {}
    89     if {[info exists portinfo(depends_run)]} { eval "lappend depends $portinfo(depends_run)" }
    90     if {[info exists portinfo(depends_lib)]} { eval "lappend depends $portinfo(depends_lib)" }
     89    if {[info exists portinfo(depends_run)]} { lappend depends {*}$portinfo(depends_run) }
     90    if {[info exists portinfo(depends_lib)]} { lappend depends {*}$portinfo(depends_lib) }
    9191
    9292    foreach depspec $depends {
  • trunk/base/tests/test/library.tcl.in

    r125585 r134837  
    1 eval ::tcltest::configure $::argv
     1::tcltest::configure {*}$::argv
    22
    33set output_file "output"
Note: See TracChangeset for help on using the changeset viewer.