Ticket #18719: macports.tcl.diff

macports.tcl

@@ -108 +108 @@
 
 
 proc macports::ui_init {priority args} {
+    global macports::channels
+
     # Get the list of channels.
     try {
         set channels [ui_channels $priority]
@@ -116 +118 @@
     }
 
     # Simplify ui_$priority.
-    set nbchans [llength $channels]
-    if {$nbchans == 0} {
+    if {[llength $channels] == 0} {
         proc ::ui_$priority {args} {}
     } else {
         try {
@@ -129 +130 @@
         try {
             eval ::ui_init $priority $prefix $channels $args
         } catch * {
-            if {$nbchans == 1} {
-                set chan [lindex $channels 0]
-                proc ::ui_$priority {args} [subst {
+            proc ::ui_$priority {args} [subst {
+                global macports::channels
+                foreach chan {$macports::channels} {
                     if {\[lindex \$args 0\] == "-nonewline"} {
-                        puts -nonewline $chan "$prefix\[lindex \$args 1\]"
+                        puts -nonewline \$chan "$prefix\[lindex \$args 1\]"
                     } else {
-                        puts $chan "$prefix\[lindex \$args 0\]"
+                        puts \$chan "$prefix\[lindex \$args 0\]"
                     }
-                }]
-            } else {
-                proc ::ui_$priority {args} [subst {
-                    foreach chan \$channels {
-                        if {\[lindex \$args 0\] == "-nonewline"} {
-                            puts -nonewline $chan "$prefix\[lindex \$args 1\]"
-                        } else {
-                            puts $chan "$prefix\[lindex \$args 0\]"
-                        }
-                    }
-                }]
-            }
+                }
+            }]
         }
 
         # Call ui_$priority