[129183] trunk/dports/_resources/port1.0/group

[jmr at macports.org]

Revision: 129183
          https://trac.macports.org/changeset/129183
Author:   jmr at macports.org
Date:     2014-12-08 13:07:39 -0800 (Mon, 08 Dec 2014)
Log Message:
-----------
quote expressions in portgroups

Modified Paths:
--------------
    trunk/dports/_resources/port1.0/group/perl5-1.0.tcl
    trunk/dports/_resources/port1.0/group/texlive-1.0.tcl

Modified: trunk/dports/_resources/port1.0/group/perl5-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/perl5-1.0.tcl	2014-12-08 20:57:16 UTC (rev 129182)
+++ trunk/dports/_resources/port1.0/group/perl5-1.0.tcl	2014-12-08 21:07:39 UTC (rev 129183)
@@ -276,18 +276,18 @@
 # Convert a floating-point version to a dotted-integer one.
 proc perl5_convert_version {vers} {
     set index [string first . $vers]
-    set other_dot [string first . [string range $vers [expr $index + 1] end]]
+    set other_dot [string first . [string range $vers [expr {$index + 1}] end]]
     if {$index == -1 || $other_dot != -1} {
         return $vers
     }
-    set ret [string range $vers 0 [expr $index - 1]]
+    set ret [string range $vers 0 [expr {$index - 1}]]
     incr index
     set fractional [string range $vers $index end]
     set index 0
     while {$index < [string length $fractional] || $index < 6} {
-        set sub [string range $fractional $index [expr $index + 2]]
+        set sub [string range $fractional $index [expr {$index + 2}]]
         if {[string length $sub] < 3} {
-            append sub [string repeat "0" [expr 3 - [string length $sub]]]
+            append sub [string repeat "0" [expr {3 - [string length $sub]}]]
         }
         append ret ".[scan $sub %u]"
         incr index 3

Modified: trunk/dports/_resources/port1.0/group/texlive-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/texlive-1.0.tcl	2014-12-08 20:57:16 UTC (rev 129182)
+++ trunk/dports/_resources/port1.0/group/texlive-1.0.tcl	2014-12-08 21:07:39 UTC (rev 129183)
@@ -220,7 +220,7 @@
                         set excluded true
                         break
                     }
-                    if {[string equal -nocase -length [expr [string length $excludeline] + 1] $line "$excludeline/"]} {
+                    if {[string equal -nocase -length [expr {[string length $excludeline] + 1}] $line "$excludeline/"]} {
                         # this is a file in an excluded directory
                         set excluded true
                         break;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20141208/2d1158cf/attachment.html>