diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 10:15:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 10:15:26 (GMT) |
| commit | 82f2bed5fe26cb420a472abc95b92120a84e02cf (patch) | |
| tree | 76f7c1b617c05630c939dbeeda746fba5e83e8d9 | |
| parent | 06f42e40b279e6253a3cf6ccdbb5ec3d6d5386e9 (diff) | |
| parent | 6b29884385ff5fa383bd25b84ae1184db4f8811c (diff) | |
| download | tcl-82f2bed5fe26cb420a472abc95b92120a84e02cf.zip tcl-82f2bed5fe26cb420a472abc95b92120a84e02cf.tar.gz tcl-82f2bed5fe26cb420a472abc95b92120a84e02cf.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | generic/tclOO.decls | 2 | ||||
| -rw-r--r-- | generic/tclTomMath.decls | 2 | ||||
| -rw-r--r-- | tools/genStubs.tcl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index f1bb320..4602460 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -5,7 +5,7 @@ # library via the stubs table. This file is used to generate the # tclOODecls.h, tclOOIntDecls.h and tclOOStubInit.c files. # -# Copyright (c) 2008-2013 by Donal K. Fellows. +# Copyright © 2008-2013 Donal K. Fellows. # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. diff --git a/generic/tclTomMath.decls b/generic/tclTomMath.decls index 5ea16f1..847717a 100644 --- a/generic/tclTomMath.decls +++ b/generic/tclTomMath.decls @@ -7,7 +7,7 @@ # If you edit this file, advance the revision number (and the epoch # if the new stubs are not backward compatible) in tclTomMathDecls.h # -# Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. +# Copyright © 2005 Kevin B. Kenny. All rights reserved. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. 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 } |