From: ian <ian>
Date: Fri, 6 Jun 2008 20:56:47 +0000 (+0000)
Subject: allow & in patterns
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=45a1d71a02350855c4f7d95d554dd2aa1699abb7;p=trains.git

allow & in patterns
---

diff --git a/hostside/multiplex b/hostside/multiplex
index 92ad473..a42dfdd 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -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