[64186] trunk/base/src/registry2.0/registry_util.tcl

[jmr at macports.org]

Revision: 64186
          http://trac.macports.org/changeset/64186
Author:   jmr at macports.org
Date:     2010-02-24 12:40:45 -0800 (Wed, 24 Feb 2010)
Log Message:
-----------
make registry::decode_spec work

Modified Paths:
--------------
    trunk/base/src/registry2.0/registry_util.tcl

Modified: trunk/base/src/registry2.0/registry_util.tcl
===================================================================
--- trunk/base/src/registry2.0/registry_util.tcl	2010-02-24 20:39:22 UTC (rev 64185)
+++ trunk/base/src/registry2.0/registry_util.tcl	2010-02-24 20:40:45 UTC (rev 64186)
@@ -52,7 +52,7 @@
 ## @return               true if `specifier` is a valid specifier, else false
 proc decode_spec {specifier version revision variants} {
     upvar 1 $version ver $revision rev $variants var
-    return [regexp {^([^-+_]+)(_([^-+]+)(([-+][^-+]+)*))?$} - ver - rev var]
+    return [regexp {^([^-+_]+)(_([^-+]+)(([-+][^-+]+)*))?$} $specifier - ver - rev var]
 }
 
 ## Checks that the given port has no dependent ports. If it does, throws an
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100224/716c5d5b/attachment.html>