[27918] trunk/base/src/port/port.tcl

[source_changes at macosforge.org]

Revision: 27918
          http://trac.macosforge.org/projects/macports/changeset/27918
Author:   eridius at macports.org
Date:     2007-08-15 21:03:18 -0700 (Wed, 15 Aug 2007)

Log Message:
-----------
Convert some tabs to spaces to match the whitespace usage of the surrounding function

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2007-08-16 03:46:53 UTC (rev 27917)
+++ trunk/base/src/port/port.tcl	2007-08-16 04:03:18 UTC (rev 27918)
@@ -1155,14 +1155,14 @@
     # otherwise try to map the portname to a url
         if {$porturl eq ""} {
         # Verify the portname, getting portinfo to map to a porturl
-	    if {[catch {mportsearch $portname no exact} result]} {
-		ui_debug "$::errorInfo"
-		break_softcontinue "search for portname $portname failed: $result" 1 status
-	    }
-	    if {[llength $result] < 2} {
-		break_softcontinue "Port $portname not found" 1 status
+            if {[catch {mportsearch $portname no exact} result]} {
+                ui_debug "$::errorInfo"
+                break_softcontinue "search for portname $portname failed: $result" 1 status
             }
-	    set found [expr [llength $result] / 2]
+            if {[llength $result] < 2} {
+                break_softcontinue "Port $portname not found" 1 status
+            }
+            set found [expr [llength $result] / 2]
             if {$found > 1} {
                 ui_warn "Found $found port $portname definitions, displaying first one."
             }
@@ -1220,11 +1220,11 @@
             set field_sep "\t"
             set subfield_sep ","
         }
-	
+        
         # Figure out whether to show field name
-	set quiet [ui_isset ports_quiet]
+        set quiet [ui_isset ports_quiet]
         if {$quiet} {
-	    set show_label 0
+            set show_label 0
         }
         
         # Spin through action options, emitting information for any found
@@ -1258,7 +1258,7 @@
             # Format the data
             set inf $portinfo($ropt)
             if { $ropt eq "maintainers" } {
-            	set inf [unobscure_maintainers $inf]
+                set inf [unobscure_maintainers $inf]
             }
             if [info exists list_map($ropt)] {
                 set field [join $inf $subfield_sep]
@@ -1314,7 +1314,7 @@
                 
             if {[info exists portinfo(platforms)]} { puts "Platforms: $portinfo(platforms)"}
             if {[info exists portinfo(maintainers)]} {
-            	puts "Maintainers: [unobscure_maintainers $portinfo(maintainers)]"
+                puts "Maintainers: [unobscure_maintainers $portinfo(maintainers)]"
             }
         }
     }

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070815/dea92d81/attachment.html