Revision: 116504 https://trac.macports.org/changeset/116504 Author: jmr@macports.org Date: 2014-01-27 03:13:03 -0800 (Mon, 27 Jan 2014) Log Message: ----------- port_binary_distributable.tcl: quote expressions Modified Paths: -------------- trunk/base/portmgr/jobs/port_binary_distributable.tcl Modified: trunk/base/portmgr/jobs/port_binary_distributable.tcl =================================================================== --- trunk/base/portmgr/jobs/port_binary_distributable.tcl 2014-01-27 11:01:13 UTC (rev 116503) +++ trunk/base/portmgr/jobs/port_binary_distributable.tcl 2014-01-27 11:13:03 UTC (rev 116504) @@ -146,8 +146,8 @@ # return license with any trailing dash followed by a number and/or plus sign removed proc remove_version {license} { set dash [string last - $license] - if {$dash != -1 && [regexp {[0-9.+]+} [string range $license [expr $dash + 1] end]]} { - return [string range $license 0 [expr $dash - 1]] + if {$dash != -1 && [regexp {[0-9.+]+} [string range $license [expr {$dash + 1}] end]]} { + return [string range $license 0 [expr {$dash - 1}]] } else { return $license }