Procházet zdrojové kódy

Update BT.Core.tcl

Florian před 8 roky
rodič
revize
0e3a1e1ab5
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      BlackTools2.5.1/BlackTools/BT.Core.tcl

+ 1 - 1
BlackTools2.5.1/BlackTools/BT.Core.tcl

@@ -3272,7 +3272,7 @@ while {[gets $file line] != -1} {
 	set read_chan [lindex [split $line] 2]
 	set read_host [lindex [split $line] 3]
 	set real_read_host [string map [list \[ {\[} \] {\]} \\ {\\}] $read_host]
-if {[string equal -nocase $host $real_read_host] && [string equal -nocase $chan $read_chan]} {
+if {([string match -nocase $host $real_read_host] || [string match -nocase $real_read_host $host]) && [string equal -nocase $chan $read_chan]} {
 	continue
 } else {
 	puts $tempwrite $line