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

[cal at macports.org]

Revision: 82960
          http://trac.macports.org/changeset/82960
Author:   cal at macports.org
Date:     2011-08-22 11:30:57 -0700 (Mon, 22 Aug 2011)
Log Message:
-----------
rev-upgrade: Warn only once per unreadable file

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-08-22 18:27:02 UTC (rev 82959)
+++ branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl	2011-08-22 18:30:57 UTC (rev 82960)
@@ -3820,6 +3820,8 @@
         if {$handle == "NULL"} {
             error "Error creating libmachista handle"
         }
+        array unset files_warned_about
+        array set files_warned_about [list]
 
         set i 1
         foreach b $binaries {
@@ -3860,7 +3862,10 @@
                     # }
 
                     if {$libreturncode != $machista::SUCCESS} {
-                        ui_warn "Could not open $filepath: [machista::strerror $libreturncode]"
+                        if {![info exists files_warned_about($filepath)]} {
+                            ui_warn "Could not open $filepath: [machista::strerror $libreturncode]"
+                            set files_warned_about($filepath) yes
+                        }
                         if {$libreturncode == $machista::EFILE} {
                             ui_debug "Marking [$b path] as broken"
                             lappend broken_files [$b path]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110822/d454d710/attachment.html>