[51420] branches/gsoc09-logging/base/src/macports1.0/macports.tcl

[enl at macports.org]

Revision: 51420
          http://trac.macports.org/changeset/51420
Author:   enl at macports.org
Date:     2009-05-24 14:04:48 -0700 (Sun, 24 May 2009)
Log Message:
-----------
debug priority bug fix: we dont know the real size of channels because it can be changed later

Modified Paths:
--------------
    branches/gsoc09-logging/base/src/macports1.0/macports.tcl

Modified: branches/gsoc09-logging/base/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc09-logging/base/src/macports1.0/macports.tcl	2009-05-24 19:08:39 UTC (rev 51419)
+++ branches/gsoc09-logging/base/src/macports1.0/macports.tcl	2009-05-24 21:04:48 UTC (rev 51420)
@@ -152,24 +152,21 @@
         set channels($priority) [concat $channels($priority) $::debuglog]
     }
     # Simplify ui_$priority.
-    if {[llength $channels($priority)] == 0} {
-       proc ::ui_$priority {args} {}
-    } else {
-        try {
-            set prefix [ui_prefix $priority]
-        } catch * {
-            set prefix [ui_prefix_default $priority]
-        }
+    try {
+        set prefix [ui_prefix $priority]
+    } catch * {
+        set prefix [ui_prefix_default $priority]
+    }
 
-        try {
-            eval ::ui_init $priority $prefix $channels($priority) $args
-        } catch * {
-            interp alias {} ui_$priority {} ui_message $priority $prefix
-        }
-
-        # Call ui_$priority
-        eval ::ui_$priority $args
+    try {
+        eval ::ui_init $priority $prefix $channels($priority) $args
+    } catch * {
+        interp alias {} ui_$priority {} ui_message $priority $prefix
     }
+
+    # Call ui_$priority
+    eval ::ui_$priority $args
+    
 }
 
 # Default implementation of ui_prefix
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090524/ce756ac8/attachment.html>