Changeset 80765

Timestamp:

07/16/11 15:33:42 (4 years ago)

Author:

cal@…

Message:

rev-upgrade: Removed debug code, added unique sorting

File:

• branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl (modified) (3 diffs)

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

@@ -3796 +3796 @@
                         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]
                         }
@@ -3833 +3832 @@
 
         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} {
@@ -3843 +3841 @@
         }
 
+        set broken_ports [lsort -unique $broken_ports]
         ui_msg "broken ports: [llength $broken_ports]"
         foreach port $broken_ports {