chiark / gitweb /
allow & in patterns
authorian <ian>
Fri, 6 Jun 2008 20:56:47 +0000 (20:56 +0000)
committerian <ian>
Fri, 6 Jun 2008 20:56:47 +0000 (20:56 +0000)
hostside/multiplex

index 92ad47325ae03ff03d419bde9faa8bb16fa4a0c4..a42dfdd716b975ff337b4121b8e960f19a7803fe 100755 (executable)
@@ -55,7 +55,7 @@ proc compile-glob-patterns {pats procname} {
     append def "    switch -regexp -- \$m {\n"
     foreach pat $pats {
        set neg [regsub {^~} $pat {} pat]
-       if {[regexp {[^-+./:=0-9a-zA-Z_*?]} $pat]} {
+       if {[regexp {[^-+./&:=0-9a-zA-Z_*?]} $pat]} {
            cmderr BadCmd "pattern contains invalid character"
        }
        regsub -all {[-+./:=]} $pat {\\&} pat