[105047] users/cal/base-rewrite/src/macports2.0/macports.tcl

[cal at macports.org]

Revision: 105047
          https://trac.macports.org/changeset/105047
Author:   cal at macports.org
Date:     2013-04-08 09:50:52 -0700 (Mon, 08 Apr 2013)
Log Message:
-----------
macports.tcl: fix reading options

Modified Paths:
--------------
    users/cal/base-rewrite/src/macports2.0/macports.tcl

Modified: users/cal/base-rewrite/src/macports2.0/macports.tcl
===================================================================
--- users/cal/base-rewrite/src/macports2.0/macports.tcl	2013-04-08 16:50:22 UTC (rev 105046)
+++ users/cal/base-rewrite/src/macports2.0/macports.tcl	2013-04-08 16:50:52 UTC (rev 105047)
@@ -161,7 +161,7 @@
     #         no setting by that name
     proc ui {key} {
         if {[info exists private::ui_options($key)]} {
-            return private::ui_options($key)
+            return $private::ui_options($key)
         }
         return {}
     }
@@ -196,7 +196,7 @@
     #         no setting by that name
     proc option {key} {
         if {[info exists private::global_options($key)]} {
-            return private::global_options($key)
+            return $private::global_options($key)
         }
         return {}
     }
@@ -222,7 +222,7 @@
     #         no setting by that name
     proc autoconf {key} {
         if {[info exists autoconf::$key]} {
-            return autoconf::$key
+            return [set autoconf::$key]
         }
         return {}
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130408/35201fcc/attachment.html>