- set mask [lindex $l 2]
- if {[string index $mask 0] == "!"} {
- set mask [string range $mask 1 end]
- if {[string match $mask $this]} continue
- } else {
- if {![string match $mask $this]} continue
+ set masks [lindex $l 2]
+ set ok 0
+ foreach mask $masks {
+ if {$debuglevel > 4} {
+ puts "consider single mask $mask"
+ }
+ if {[string index $mask 0] == "!"} {
+ set mask [string range $mask 1 end]
+ if {[string match $mask $this]} continue
+ } else {
+ if {![string match $mask $this]} continue
+ }
+ set ok 1
+ }
+ if {$debuglevel > 4} {
+ puts "ok = $ok"