Changeset 53706


Ignore:
Timestamp:
Jul 12, 2009, 1:28:47 PM (10 years ago)
Author:
jmr@…
Message:

suppress some debug spam

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/macports.tcl

    r53704 r53706  
    110110proc macports::ui_init {priority args} {
    111111    # Get the list of channels.
    112     try {
     112    if {[llength [info commands ui_channels]] > 0} {
    113113        set channels [ui_channels $priority]
    114     } catch * {
     114    } else {
    115115        set channels [ui_channels_default $priority]
    116116    }
     
    121121        proc ::ui_$priority {args} {}
    122122    } else {
    123         try {
     123        if {[llength [info commands ui_prefix]] > 0} {
    124124            set prefix [ui_prefix $priority]
    125         } catch * {
     125        } else {
    126126            set prefix [ui_prefix_default $priority]
    127127        }
    128128
    129         try {
     129        if {[llength [info commands ::ui_init]] > 0} {
    130130            eval ::ui_init $priority $prefix $channels $args
    131         } catch * {
     131        } else {
    132132            if {$nbchans == 1} {
    133133                set chan [lindex $channels 0]
     
    18631863                    lappend matches $line
    18641864                    close $fd
    1865                     break
     1865                    set fd -1
    18661866                } catch {*} {
    18671867                    ui_warn "It looks like your PortIndex file may be corrupt."
    1868                     throw
    18691868                } finally {
    1870                     catch {close $fd}
     1869                    if {$fd != -1} {
     1870                        close $fd
     1871                    }
     1872                }
     1873                if {[llength $matches] > 0} {
     1874                    break
    18711875                }
    18721876            }
Note: See TracChangeset for help on using the changeset viewer.