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

View File

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