[32525] trunk/base/src/macports1.0/macports.tcl

[eridius at macports.org]

Revision: 32525
          http://trac.macosforge.org/projects/macports/changeset/32525
Author:   eridius at macports.org
Date:     2008-01-06 14:38:34 -0800 (Sun, 06 Jan 2008)

Log Message:
-----------
Change the ui_prefix if-else block to a try-catch block

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2008-01-06 20:44:06 UTC (rev 32524)
+++ trunk/base/src/macports1.0/macports.tcl	2008-01-06 22:38:34 UTC (rev 32525)
@@ -111,9 +111,9 @@
     if {$nbchans == 0} {
         proc ::ui_$priority {str} {}
     } else {
-        if {[llength [info commands ui_prefix]] > 0} {
+        try {
             set prefix [ui_prefix $priority]
-        } else {
+        } catch * {
             set prefix [ui_prefix_default $priority]
         }
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080106/990d067e/attachment.html