Modified: trunk/base/src/macports1.0/macports.tcl (90101 => 90102)
--- trunk/base/src/macports1.0/macports.tcl 2012-02-21 17:01:20 UTC (rev 90101)
+++ trunk/base/src/macports1.0/macports.tcl 2012-02-21 17:04:50 UTC (rev 90102)
@@ -4075,8 +4075,10 @@
set i 1
foreach f $files {
if {![macports::ui_isset ports_debug]} {
- ui_msg -nonewline "\r$macports::ui_prefix Updating database of binaries: [expr $i * 100 / $files_count]%"
- flush stdout
+ if {$files_count < 10000 || $i % 10 == 1 || $i == $files_count} {
+ ui_msg -nonewline "\r$macports::ui_prefix Updating database of binaries: [expr ($i * 1000 / $files_count) / 10.0]%"
+ flush stdout
+ }
}
ui_debug "Updating binary flag for file $i of [llength $files]: [$f path]"
incr i
@@ -4113,8 +4115,10 @@
set binary_count [llength $binaries]
foreach b $binaries {
if {![macports::ui_isset ports_debug]} {
- ui_msg -nonewline "\r$macports::ui_prefix Scanning binaries for linking errors: [expr $i * 100 / $binary_count]%"
- flush stdout
+ if {$binary_count < 10000 || $i % 10 == 1 || $i == $binary_count} {
+ ui_msg -nonewline "\r$macports::ui_prefix Scanning binaries for linking errors: [expr ($i * 1000 / $binary_count) / 10.0]%"
+ flush stdout
+ }
}
#ui_debug "$i/[llength $binaries]: [$b path]"
incr i