[116504] trunk/base/portmgr/jobs/port_binary_distributable.tcl

[jmr at macports.org]

Revision: 116504
          https://trac.macports.org/changeset/116504
Author:   jmr at 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
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/d98313d2/attachment.html>