Revision
140015
Author
cal@macports.org
Date
2015-09-06 09:33:56 -0700 (Sun, 06 Sep 2015)

Log Message

base: Fix _mportkey with non-trivial variable names such as "test.run"

Additionally drop the return statement that's not really necessary, because the
return value of the eval'd script will automatically be returned to the parent
interpreter even without it. Use Tcl's [list] to ensure $key is correctly
quoted no matter what it is.

Modified Paths

Diff

Modified: trunk/base/src/macports1.0/macports.tcl (140014 => 140015)


--- trunk/base/src/macports1.0/macports.tcl	2015-09-06 14:08:34 UTC (rev 140014)
+++ trunk/base/src/macports1.0/macports.tcl	2015-09-06 16:33:56 UTC (rev 140015)
@@ -3099,7 +3099,7 @@
 
 proc _mportkey {mport key} {
     set workername [ditem_key $mport workername]
-    return [$workername eval "return \$$key"]
+    return [$workername eval [list set $key]]
 }
 
 # mportdepends builds the list of mports which the given port depends on.