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

[jmr at macports.org]

Revision: 52540
          http://trac.macports.org/changeset/52540
Author:   jmr at macports.org
Date:     2009-06-18 08:20:21 -0700 (Thu, 18 Jun 2009)
Log Message:
-----------
Use an underscore, not a dash, when trying to generate a unique platform variant name.

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

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-06-18 15:08:15 UTC (rev 52539)
+++ trunk/base/src/port1.0/portutil.tcl	2009-06-18 15:20:21 UTC (rev 52540)
@@ -681,11 +681,11 @@
     # Pick up a unique name.
     if {[variant_exists $platform]} {
         set suffix 1
-        while {[variant_exists "$platform-$suffix"]} {
+        while {[variant_exists "${platform}_${suffix}"]} {
             incr suffix
         }
 
-        set platform "$platform-$suffix"
+        set platform "${platform}_${suffix}"
     }
     variant $platform $code
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090618/4a7e289e/attachment.html>