diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:39:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:39:09 (GMT) |
commit | d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310 (patch) | |
tree | 7bb450068eb4efbc3969ba8fff1e0a991137f3b9 /tests/thread.test | |
parent | 5bef31d2da2eb4ed8f3261ef8276cb2a3b6f3a1e (diff) | |
parent | f0ec68f07293dac2b967d45a3697073b77688970 (diff) | |
download | tcl-d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310.zip tcl-d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310.tar.gz tcl-d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/thread.test')
-rw-r--r-- | tests/thread.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/thread.test b/tests/thread.test index 0a12285..0a35d1b 100644 --- a/tests/thread.test +++ b/tests/thread.test @@ -39,11 +39,11 @@ set threadSuperKillScript { proc getThreadErrorFromInfo { info } { set list [split $info \n] set idx [lsearch -glob $list "*eval*unwound*"] - if {$idx != -1} then { + if {$idx >= 0} then { return [lindex $list $idx] } set idx [lsearch -glob $list "*eval*canceled*"] - if {$idx != -1} then { + if {$idx >= 0} then { return [lindex $list $idx] } return ""; # some other error we do not care about. |