[80765] branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl

[cal at macports.org]

Revision: 80765
          http://trac.macports.org/changeset/80765
Author:   cal at macports.org
Date:     2011-07-16 15:33:42 -0700 (Sat, 16 Jul 2011)
Log Message:
-----------
rev-upgrade: Removed debug code, added unique sorting

Modified Paths:
--------------
    branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl

Modified: branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl	2011-07-16 22:32:09 UTC (rev 80764)
+++ branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl	2011-07-16 22:33:42 UTC (rev 80765)
@@ -3795,7 +3795,6 @@
                     if {$libreturncode != $machista::SUCCESS} {
                         ui_info "Could not open `[$loadcommand cget -mlt_install_name]': [machista::strerror $libreturncode]"
                         if {$libreturncode == $machista::EFILE} {
-                            ui_warn "Adding [$b path]"
                             lappend broken_files [$b path]
                         }
                         set loadcommand [$loadcommand cget -next]
@@ -3832,9 +3831,8 @@
         machista::destroy_handle $handle
 
         set broken_ports {}
-        ui_msg "broken files: [llength $broken_files]"
+        set broken_files [lsort -unique $broken_files]
         foreach file $broken_files {
-            ui_msg "    $file"
             set port [registry::file_registered $file]
             if {$port == 0} {
                 ui_error "Broken file `$file' doesn't belong to any port."
@@ -3842,6 +3840,7 @@
             lappend broken_ports $port
         }
 
+        set broken_ports [lsort -unique $broken_ports]
         ui_msg "broken ports: [llength $broken_ports]"
         foreach port $broken_ports {
             ui_msg "    $port"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110716/a30214bc/attachment.html>