diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 08:09:20 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 08:09:20 (GMT) |
commit | 0715d88019e40aa514b3b2d3ba691ab7d0a96eb2 (patch) | |
tree | ac95aabe297f6978466d57f62988df8f1abc0577 /library/safe.tcl | |
parent | 2592b1e93b713440a2fab51b01df4ad31bb21f7d (diff) | |
download | tcl-0715d88019e40aa514b3b2d3ba691ab7d0a96eb2.zip tcl-0715d88019e40aa514b3b2d3ba691ab7d0a96eb2.tar.gz tcl-0715d88019e40aa514b3b2d3ba691ab7d0a96eb2.tar.bz2 |
Use $index<0 in stead of $index==-1 consistantly
Diffstat (limited to 'library/safe.tcl')
-rw-r--r-- | library/safe.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 48cb0de..5e04453 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -318,7 +318,7 @@ proc ::safe::InterpSetConfig {child access_path staticsok nestedok deletehook} { # Make sure that tcl_library is in auto_path and at the first # position (needed by setAccessPath) set where [lsearch -exact $access_path [info library]] - if {$where == -1} { + if {$where < 0} { # not found, add it. set access_path [linsert $access_path 0 [info library]] Log $child "tcl_library was not in auto_path,\ |