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