tags can't have underscores or dashes

[yeled@…]

This is the code in portfetch.tcl:

proc getdisttag {name} {                                                        
    if {[regexp {.+:([0-9A-Za-z_-]+)} $name match tag]} {                       
        return $tag                                                             
    } else {                                                                    
        return ""                                                               
    }                                                                           
}                                                                               

yet if you add a a tag (like vim had for +aqua) with an underscore or a dash, it fails and falls back to the master_sites

   --->  Fetching vim Error: No defined site for tag: app_aqua, using master_sites

[yeled@…]

adding pguyot@… as it's Paul's regexp line that I'm trying to make work here.

[yeled@…]

--- src/port1.0/portfetch.tcl.orig 2005-09-04 01:32:56.000000000 +1000 +++ src/port1.0/portfetch.tcl 2005-09-04 01:32:47.000000000 +1000 @@ -234,7 +234,7 @@

}

foreach site $site_list {

• if {[regexp {([a-zA-Z]+:.+/?):([a-zA-Z]+)} $site match site tag]} {

+ if {[regexp {([a-zA-Z]+:.+/?):([0-9a-zA-Z_-]+)} $site match site tag]} {

lappend portfetch::$tag $site

} else {

lappend portfetch::$list $site

---8<--- that's it folks.

[pguyot (Paul Guyot)]

Thanks Charlie. Fixed.