Ignore:
Timestamp:
Jan 27, 2014, 3:31:02 PM (7 years ago)
Author:
cal@…
Message:

portmgr/packaging: Tcl cleanup, patch by Gustaf Neumann, Tcl8.4-clean

Location:
trunk/base/portmgr/packaging
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/portmgr/packaging/dpkgall.tcl

    r79593 r116517  
    107107proc ui_channels {priority} {
    108108        global dpkg::logfd
    109         if {[info exists logfd] && [string length $logfd] > 0 } {
     109        if {[info exists logfd] && $logfd ne ""} {
    110110                return {$logfd}
    111         } elseif {$message(priority) != "debug"} {
     111        } elseif {$message(priority) ne "debug"} {
    112112                # If there's no log file, echo to stdout
    113113                return {stdout}
     
    641641
    642642        foreach {binary port} $requiredports {
    643                 if {[find_binary $binary] == ""} {
     643                if {[find_binary $binary] eq ""} {
    644644                        lappend reqlist $port
    645645                }
     
    686686
    687687        foreach port $builddeps {
    688                 if {[lsearch -exact $port $rundeps] >= 0 } {
     688                if {[lsearch -exact $port $rundeps] >= 0} {
    689689                        lappend removelist $port
    690690                }
  • trunk/base/portmgr/packaging/mpkgall.tcl

    r83052 r116517  
    122122proc write_welcome_html {filename portname portversion long_description description homepage} {
    123123    set fd [open ${filename} w+]
    124     if {$long_description == ""} {
     124    if {$long_description eq ""} {
    125125        set long_description $description
    126126    }
     
    138138<p>"
    139139
    140     if {$homepage != ""} {
     140    if {$homepage ne ""} {
    141141        puts $fd "<font face=\"Helvetica\">${homepage}</font><p>"
    142142    }
     
    158158        set vers [split $portversion "."]
    159159       
    160         if {[string index $destination end] != "/"} {
     160        if {[string index $destination end] ne "/"} {
    161161                append destination /
    162162        }
  • trunk/base/portmgr/packaging/packageall.tcl

    r79593 r116517  
    4747    global ui_options
    4848    if {[info exists ui_options($val)]} {
    49         if {$ui_options($val) == "yes"} {
     49        if {$ui_options($val) eq "yes"} {
    5050            return 1
    5151        }
     
    106106proc pkg_ui_log {message} {
    107107    global logfd
    108     if {[string length $logfd] > 0 } {
     108    if {$logfd ne ""} {
    109109        log_message $logfd $message
    110110    }
     
    148148                if {[info exists portinfo(depends_run)]} { eval "lappend depends $portinfo(depends_run)" }
    149149                if {[info exists portinfo(depends_lib)]} { eval "lappend depends $portinfo(depends_lib)" }
    150                 if {$includeBuildDeps != "" && [info exists portinfo(depends_build)]} {
     150                if {$includeBuildDeps ne "" && [info exists portinfo(depends_build)]} {
    151151                        eval "lappend depends $portinfo(depends_build)"
    152152                }
    153                 if {$includeBuildDeps != "" && [info exists portinfo(depends_fetch)]} {
     153                if {$includeBuildDeps ne "" && [info exists portinfo(depends_fetch)]} {
    154154                        eval "lappend depends $portinfo(depends_fetch)"
    155155                }
    156                 if {$includeBuildDeps != "" && [info exists portinfo(depends_extract)]} {
     156                if {$includeBuildDeps ne "" && [info exists portinfo(depends_extract)]} {
    157157                        eval "lappend depends $portinfo(depends_extract)"
    158158                }
     
    299299        # then the port failed with an error.  Send the log in an
    300300        # email to the maintainers.
    301         if {[string length $logfd] > 0} {
     301        if {$logfd ne ""} {
    302302                close $logfd
    303303                set logfd ""
  • trunk/base/portmgr/packaging/rpmall.tcl

    r79593 r116517  
    4848    global ui_options
    4949    if {[info exists ui_options($val)]} {
    50         if {$ui_options($val) == "yes"} {
     50        if {$ui_options($val) eq "yes"} {
    5151            return 1
    5252        }
     
    109109proc pkg_ui_log {message} {
    110110    global logfd
    111     if {[string length $logfd] > 0 } {
     111    if {$logfd ne ""} {
    112112        log_message $logfd $message
    113113    }
     
    153153                if {[info exists portinfo(depends_run)]} { eval "lappend depends $portinfo(depends_run)" }
    154154                if {[info exists portinfo(depends_lib)]} { eval "lappend depends $portinfo(depends_lib)" }
    155                 if {$includeBuildDeps != "" && [info exists portinfo(depends_build)]} {
     155                if {$includeBuildDeps ne "" && [info exists portinfo(depends_build)]} {
    156156                        eval "lappend depends $portinfo(depends_build)"
    157157                }
    158                 if {$includeBuildDeps != "" && [info exists portinfo(depends_fetch)]} {
     158                if {$includeBuildDeps ne "" && [info exists portinfo(depends_fetch)]} {
    159159                        eval "lappend depends $portinfo(depends_fetch)"
    160160                }
    161                 if {$includeBuildDeps != "" && [info exists portinfo(depends_extract)]} {
     161                if {$includeBuildDeps ne "" && [info exists portinfo(depends_extract)]} {
    162162                        eval "lappend depends $portinfo(depends_extract)"
    163163                }
     
    361361        # then the port failed with an error.  Send the log in an
    362362        # email to the maintainers.
    363         if {[string length $logfd] > 0} {
     363        if {$logfd ne ""} {
    364364                close $logfd
    365365                set logfd ""
Note: See TracChangeset for help on using the changeset viewer.