Changeset 996 for trunk/base

Timestamp:

Oct 8, 2002, 10:34:37 PM (22 years ago)

Author:

kevin

Message:

Recognize portnames with a '-'.

File:

• trunk/base/src/port1.0/portdepends.tcl (modified) (1 diff)

trunk/base/src/port1.0/portdepends.tcl

@@ -52 +52 @@
         set|append {
             foreach depspec $args {
-                if {[regexp {([A-Za-z\./0-9]+):([A-Za-z0-9\-\.$^\?\+\(\)\|\\]+):([A-Za-z\./0-9]+)} "$depspec" match deppath depregex portname] == 1} {
+                if {[regexp {([A-Za-z\./0-9]+):([A-Za-z0-9\-\.$^\?\+\(\)\|\\]+):([-A-Za-z\./0-9]+)} "$depspec" match deppath depregex portname] == 1} {
                     switch $deppath {
                         lib { set obj [libportfile_new $portname $depregex] }