Ignore:
Timestamp:
Dec 8, 2014, 9:07:39 PM (4 years ago)
Author:
jmr@…
Message:

quote expressions in portgroups

Location:
trunk/dports/_resources/port1.0/group
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/dports/_resources/port1.0/group/perl5-1.0.tcl

    r128012 r129183  
    277277proc perl5_convert_version {vers} {
    278278    set index [string first . $vers]
    279     set other_dot [string first . [string range $vers [expr $index + 1] end]]
     279    set other_dot [string first . [string range $vers [expr {$index + 1}] end]]
    280280    if {$index == -1 || $other_dot != -1} {
    281281        return $vers
    282282    }
    283     set ret [string range $vers 0 [expr $index - 1]]
     283    set ret [string range $vers 0 [expr {$index - 1}]]
    284284    incr index
    285285    set fractional [string range $vers $index end]
    286286    set index 0
    287287    while {$index < [string length $fractional] || $index < 6} {
    288         set sub [string range $fractional $index [expr $index + 2]]
     288        set sub [string range $fractional $index [expr {$index + 2}]]
    289289        if {[string length $sub] < 3} {
    290             append sub [string repeat "0" [expr 3 - [string length $sub]]]
     290            append sub [string repeat "0" [expr {3 - [string length $sub]}]]
    291291        }
    292292        append ret ".[scan $sub %u]"
  • trunk/dports/_resources/port1.0/group/texlive-1.0.tcl

    r121682 r129183  
    221221                        break
    222222                    }
    223                     if {[string equal -nocase -length [expr [string length $excludeline] + 1] $line "$excludeline/"]} {
     223                    if {[string equal -nocase -length [expr {[string length $excludeline] + 1}] $line "$excludeline/"]} {
    224224                        # this is a file in an excluded directory
    225225                        set excluded true
Note: See TracChangeset for help on using the changeset viewer.