[111301] branches/gsoc13-tests/src/package1.0/tests/library.tcl

[cal at macports.org]

Revision: 111301
          https://trac.macports.org/changeset/111301
Author:   cal at macports.org
Date:     2013-09-18 12:10:46 -0700 (Wed, 18 Sep 2013)
Log Message:
-----------
package1.0: fix library.tcl bug hiding the xcodeversion variable

Modified Paths:
--------------
    branches/gsoc13-tests/src/package1.0/tests/library.tcl

Modified: branches/gsoc13-tests/src/package1.0/tests/library.tcl
===================================================================
--- branches/gsoc13-tests/src/package1.0/tests/library.tcl	2013-09-18 19:07:09 UTC (rev 111300)
+++ branches/gsoc13-tests/src/package1.0/tests/library.tcl	2013-09-18 19:10:46 UTC (rev 111301)
@@ -36,15 +36,18 @@
 # sub-interpreters
 proc macports_worker_init {} {
     interp alias {} _cd {} cd
+
     proc PortSystem {version} {
         package require port $version
     }
+
     # Clearly separate slave interpreters and the master interpreter.
     interp alias {} mport_exec      {} mportexec
     interp alias {} mport_open      {} mportopen
     interp alias {} mport_close     {} mportclose
     interp alias {} mport_lookup    {} mportlookup
     interp alias {} mport_info      {} mportinfo
+
     # Export some utility functions defined here.
     interp alias {} macports_create_thread          {} macports::create_thread
     interp alias {} getportworkpath_from_buildpath  {} macports::getportworkpath_from_buildpath
@@ -55,6 +58,7 @@
     interp alias {} getportdir                      {} macports::getportdir
     interp alias {} findBinary                      {} macports::findBinary
     interp alias {} binaryInPath                    {} macports::binaryInPath
+
     # New Registry/Receipts stuff
     interp alias {} registry_new                    {} registry::new_entry
     interp alias {} registry_open                   {} registry::open_entry
@@ -75,13 +79,17 @@
     interp alias {} registry_file_registered        {} registry::file_registered
     interp alias {} registry_port_registered        {} registry::port_registered
     interp alias {} registry_list_depends           {} registry::list_depends
+
     # deferred options processing.
     interp alias {} getoption {} macports::getoption
+
     # ping cache
     interp alias {} get_pingtime {} macports::get_pingtime
     interp alias {} set_pingtime {} macports::set_pingtime
+
     # archive_sites.conf handling
     interp alias {} get_archive_sites_conf_values {} macports::get_archive_sites_conf_values
+
     foreach opt $macports::portinterp_options {
         if {![info exists $opt]} {
             global macports::$opt
@@ -91,17 +99,7 @@
             set ::$opt $opt
         }
     }
-    foreach opt $macports::portinterp_deferred_options {
-        global macports::$opt
-        # define the trace hook.
-        proc trace_$opt {name1 name2 op} {
-            trace remove variable ::$opt read ::trace_$opt
-            global $opt
-            set $opt [getoption $opt]
-        }
-        # next access will actually define the variable.
-        trace add variable ::$opt read ::trace_$opt
-        # define some value now
-        set $opt "?"
-    }
+
+	# We don't need to handle portinterp_deferred_options, they're
+	# automatically handled correctly.
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130918/7a46bd6f/attachment.html>