Improve error trapping, actually make it work
This commit is contained in:
parent
346ed469c8
commit
6c40da165d
@ -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}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user