Improve error trapping, actually make it work

This commit is contained in:
df 2021-03-20 00:54:20 +00:00
parent 346ed469c8
commit 6c40da165d
1 changed files with 2 additions and 0 deletions

View File

@ -862,6 +862,7 @@ ts method getkey {mode} {
if {[string length $key] == 32} {
ladd keys $key
}
} on error {} {
} finally {
catch {$fd close}
}
@ -878,6 +879,7 @@ ts method getkey {mode} {
foreach key [split [$fd read -nonewline] "\n"] {
ladd keys $key
}
} on error {} {
} finally {
catch {$fd close}
}