[21950] trunk/base/src/port1.0/portutil.tcl

[source_changes at macosforge.org]

Revision: 21950
          http://trac.macosforge.org/projects/macports/changeset/21950
Author:   eridius at macports.org
Date:     2007-02-11 20:38:16 -0800 (Sun, 11 Feb 2007)

Log Message:
-----------
We don't need all these evals to create dynamic procs. Changing options_export right now to prove this

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2007-02-12 04:28:23 UTC (rev 21949)
+++ trunk/base/src/port1.0/portutil.tcl	2007-02-12 04:38:16 UTC (rev 21950)
@@ -123,15 +123,16 @@
 
 proc options_export {args} {
     foreach option $args {
-        eval "proc options::export-${option} \{args\} \{ \n\
-	    global ${option} PortInfo \n\
-	    if \{\[info exists ${option}\]\} \{ \n\
-		set PortInfo(${option}) \$\{${option}\} \n\
-	    \} else \{ \n\
-		unset PortInfo(${option}) \n\
-	    \} \n\
-        \}"
-	option_proc ${option} options::export-${option}
+        proc options::export-${option} {args} "
+            global ${option} PortInfo
+            if {\[info exists ${option}\]} {
+                set PortInfo(${option}) \${${option}}
+                } else {
+                    unset PortInfo(${option})
+                }
+            }
+        "
+        option_proc ${option} options::export-${option}
     }
 }
 

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