Ignore:
Timestamp:
Jan 27, 2014, 11:19:45 AM (7 years ago)
Author:
jmr@…
Message:

macports_util.tcl: quote expressions

File:
1 edited

Legend:

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

    r116445 r116505  
    271271            set typeList [lshift elem]
    272272            set match? 1
    273             set typeList [lrange $typeList 0 [expr [llength $savedErrorCode] - 1]]
    274             set codeList [lrange $savedErrorCode 0 [expr [llength $typeList] - 1]]
     273            set typeList [lrange $typeList 0 [expr {[llength $savedErrorCode] - 1}]]
     274            set codeList [lrange $savedErrorCode 0 [expr {[llength $typeList] - 1}]]
    275275            foreach type $typeList code $codeList {
    276276                if {![string match $type $code]} {
Note: See TracChangeset for help on using the changeset viewer.