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

[source_changes at macosforge.org]

Revision: 24450
          http://trac.macosforge.org/projects/macports/changeset/24450
Author:   eridius at macports.org
Date:     2007-04-24 09:51:43 -0700 (Tue, 24 Apr 2007)

Log Message:
-----------
Fix default_variants to actually handle multiple values (fixes #11828)
This was a tricky little bug, relying on Tcl treating an argument named "args" specially

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-04-24 16:39:32 UTC (rev 24449)
+++ trunk/base/src/port1.0/portutil.tcl	2007-04-24 16:51:43 UTC (rev 24450)
@@ -1527,11 +1527,11 @@
     return $ditem
 }
 
-proc handle_default_variants {option action args} {
+proc handle_default_variants {option action {value ""}} {
     global variations
     switch -regex $action {
 	set|append {
-	    foreach v $args {
+	    foreach v $value {
 		if {[regexp {([-+])([-A-Za-z0-9_]+)} $v whole val variant]} {
 		    if {![info exists variations($variant)]} {
 			set variations($variant) $val

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