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

[jmr at macports.org]

Revision: 55180
          http://trac.macports.org/changeset/55180
Author:   jmr at macports.org
Date:     2009-08-07 04:32:19 -0700 (Fri, 07 Aug 2009)
Log Message:
-----------
fix for Tcl 8.5

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-08-07 08:53:29 UTC (rev 55179)
+++ trunk/base/src/macports1.0/macports.tcl	2009-08-07 11:32:19 UTC (rev 55180)
@@ -2597,8 +2597,9 @@
     if {[info exists options(ports_upgrade_force)] || $epoch_override == 1
         || ![registry::entry_exists $newname $version_in_tree $revision_in_tree $portinfo(canonical_active_variants)]} {
         if {[catch {set result [mportexec $workername $upgrade_action]} result] || $result != 0} {
-            global errorInfo
-            ui_debug "$errorInfo"
+            if {[info exists ::errorInfo]} {
+                ui_debug "$::errorInfo"
+            }
             ui_error "Unable to upgrade port: $result"
             catch {mportclose $workername}
             return 1
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090807/8ff4084b/attachment.html>