diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 10:13:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 10:13:51 (GMT) |
commit | 5bd65884c293f6b7e5255c095eda8acb1934abeb (patch) | |
tree | 1268c5c0708e152ac17bb2c44061e6fd06048b2f /tools | |
parent | 00e74d3371710d80dfc049a73bdb1b8d7eeffcf7 (diff) | |
download | tcl-5bd65884c293f6b7e5255c095eda8acb1934abeb.zip tcl-5bd65884c293f6b7e5255c095eda8acb1934abeb.tar.gz tcl-5bd65884c293f6b7e5255c095eda8acb1934abeb.tar.bz2 |
*.decls files are now in UTF-8. Use "in" operator in stead of "lsearch -exact".
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genStubs.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 5b7278c..47b8ad4 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -1101,7 +1101,7 @@ proc genStubs::emitInit {name textVar} { } foreach intf [array names interfaces] { if {[info exists hooks($intf)]} { - if {[lsearch -exact $hooks($intf) $name] >= 0} { + if {$name in $hooks($intf)} { set root 0 break } |