Changeset 116519


Ignore:
Timestamp:
Jan 27, 2014, 3:40:13 PM (6 years ago)
Author:
cal@…
Message:

portmgr/{autosubmit.tcl, PortIndex2MySQL.tcl, port_binary_distributable.tcl}: Tcl cleanup, patch by Gustaf Neumann, Tcl8.4-compatible

Location:
trunk/base/portmgr
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/portmgr/autosubmit.tcl

    r59836 r116519  
    6767                                set none 0
    6868                               
    69                                 if { $values(last_mod_date) == "" || $values(last_mod_date) != $mod_date } {
     69                                if { $values(last_mod_date) eq "" || $values(last_mod_date) != $mod_date } {
    7070                               
    7171                                        # The last_mod_date has changed, so just update it to provide
     
    119119                       
    120120                        # Do update or insert post processing
    121                         if { $post != "" } {
     121                        if { $post ne "" } {
    122122                                db eval $post
    123123                        }
  • trunk/base/portmgr/jobs/PortIndex2MySQL.tcl

    r79593 r116519  
    7676set create_tables true
    7777if {[llength $argv]} {
    78     if {[lindex $argv 0] == "--create-tables"} {
     78    if {[lindex $argv 0] eq "--create-tables"} {
    7979        set create_tables true
    8080    }
  • trunk/base/portmgr/jobs/port_binary_distributable.tcl

    r116504 r116519  
    123123
    124124    foreach dependencyType $check_deptypes {
    125         if {[info exists portInfo($dependencyType)] && [string length $portInfo($dependencyType)] > 0} {
     125        if {[info exists portInfo($dependencyType)] && $portInfo($dependencyType) ne ""} {
    126126            foreach dependency $portInfo($dependencyType) {
    127127                set afterColon [expr {[string last ":" $dependency] + 1}]
Note: See TracChangeset for help on using the changeset viewer.