[24459] branches/dp2mp-move/base/src/macports1.0/macports.tcl

[source_changes at macosforge.org]

Revision: 24459
          http://trac.macosforge.org/projects/macports/changeset/24459
Author:   jmpp at macports.org
Date:     2007-04-24 12:22:11 -0700 (Tue, 24 Apr 2007)

Log Message:
-----------
Manually merging (file name differences) eridius' r24458: Replace some ugly eval-ing with much cleaner subst

Modified Paths:
--------------
    branches/dp2mp-move/base/src/macports1.0/macports.tcl

Modified: branches/dp2mp-move/base/src/macports1.0/macports.tcl
===================================================================
--- branches/dp2mp-move/base/src/macports1.0/macports.tcl	2007-04-24 19:08:19 UTC (rev 24458)
+++ branches/dp2mp-move/base/src/macports1.0/macports.tcl	2007-04-24 19:22:11 UTC (rev 24459)
@@ -78,19 +78,19 @@
 	# Simplify ui_$priority.
 	set nbchans [llength $channels]
 	if {$nbchans == 0} {
-		eval "proc ::ui_$priority {str} {}"
+		proc ::ui_$priority {str} {}
 	} else {
 		set prefix [ui_prefix $priority]
 
 		if {$nbchans == 1} {
 			set chan [lindex $channels 0]
-			eval "proc ::ui_$priority {str} \{ puts $chan \"$prefix\$str\" \}"
+			proc ::ui_$priority {str} [subst -nocommands { puts $chan "$prefix\$str" }]
 		} else {
-			eval "proc ::ui_$priority {str} \{ \n\
-				foreach chan $channels \{ \n\
-					puts $chan \"$prefix\$str\" \n\
-				\} \n\
-			\}"
+			proc ::ui_$priority {str} [subst -nocommands {
+				foreach chan \$channels {
+					puts $chan "$prefix\$str"
+				}
+			}]
 		}
 
 		# Call ui_$priority

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