Improve error trapping, actually make it work

This commit is contained in:
df 2021-03-20 00:54:20 +00:00
parent e4aa241351
commit eab635cab6

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}
}