Changeset 27918 for trunk/base


Ignore:
Timestamp:
Aug 16, 2007, 4:03:18 AM (13 years ago)
Author:
eridius@…
Message:

Convert some tabs to spaces to match the whitespace usage of the surrounding function

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r27823 r27918  
    11561156        if {$porturl eq ""} {
    11571157        # Verify the portname, getting portinfo to map to a porturl
    1158             if {[catch {mportsearch $portname no exact} result]} {
    1159                 ui_debug "$::errorInfo"
    1160                 break_softcontinue "search for portname $portname failed: $result" 1 status
    1161             }
    1162             if {[llength $result] < 2} {
    1163                 break_softcontinue "Port $portname not found" 1 status
     1158            if {[catch {mportsearch $portname no exact} result]} {
     1159                ui_debug "$::errorInfo"
     1160                break_softcontinue "search for portname $portname failed: $result" 1 status
    11641161            }
    1165             set found [expr [llength $result] / 2]
     1162            if {[llength $result] < 2} {
     1163                break_softcontinue "Port $portname not found" 1 status
     1164            }
     1165            set found [expr [llength $result] / 2]
    11661166            if {$found > 1} {
    11671167                ui_warn "Found $found port $portname definitions, displaying first one."
     
    12211221            set subfield_sep ","
    12221222        }
    1223        
     1223       
    12241224        # Figure out whether to show field name
    1225         set quiet [ui_isset ports_quiet]
     1225        set quiet [ui_isset ports_quiet]
    12261226        if {$quiet} {
    1227             set show_label 0
     1227            set show_label 0
    12281228        }
    12291229       
     
    12591259            set inf $portinfo($ropt)
    12601260            if { $ropt eq "maintainers" } {
    1261                 set inf [unobscure_maintainers $inf]
     1261                set inf [unobscure_maintainers $inf]
    12621262            }
    12631263            if [info exists list_map($ropt)] {
     
    13151315            if {[info exists portinfo(platforms)]} { puts "Platforms: $portinfo(platforms)"}
    13161316            if {[info exists portinfo(maintainers)]} {
    1317                 puts "Maintainers: [unobscure_maintainers $portinfo(maintainers)]"
     1317                puts "Maintainers: [unobscure_maintainers $portinfo(maintainers)]"
    13181318            }
    13191319        }
Note: See TracChangeset for help on using the changeset viewer.