02/12/2016, 01:36
Et n'est-ce pas tout simplement un souci de casse ?
Et mieux:
tcl
if { [string tolower $::channel] != [string tolower $chan] } { return 0; }
Et mieux:
tcl
if { ![string equal -nocase $::channel $chan] } { return 0; }