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

[jmr at macports.org]

Revision: 64514
          http://trac.macports.org/changeset/64514
Author:   jmr at macports.org
Date:     2010-03-07 18:38:07 -0800 (Sun, 07 Mar 2010)
Log Message:
-----------
fix regex in registry::decode_spec (#23966)

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-03-08 01:54:04 UTC (rev 64513)
+++ trunk/base/src/registry2.0/registry_util.tcl	2010-03-08 02:38:07 UTC (rev 64514)
@@ -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 {^([^-+_]+)(_([^-+]+)(([-+][^-+]+)*))?$} $specifier - ver - rev var]
+    return [regexp {^([^+]+?)(_(\d+)(([-+][^-+]+)*))?$} $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/20100307/74d56bf1/attachment.html>