From 52909cf377e371b11eccb8276f48fca8d67b3f36 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Fri, 6 Jun 2008 20:58:38 +0000
Subject: [PATCH] allow | in patterns; escape | and &

---
 hostside/multiplex | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hostside/multiplex b/hostside/multiplex
index a42dfdd..0607825 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -55,10 +55,10 @@ 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
+	regsub -all {[-+./&|:=]} $pat {\\&} pat
 	regsub -all {_} $pat {\s+} pat
 	regsub -all {\*} $pat {\S+} pat
 	regsub -all {\?} $pat {.} pat
-- 
2.30.2