Improve error trapping, actually make it work
This commit is contained in:
parent
39ab2d4505
commit
9540733e13
|
@ -862,6 +862,7 @@ ts method getkey {mode} {
|
|||
lappend keys $key
|
||||
}
|
||||
}
|
||||
} on error {} {
|
||||
} finally {
|
||||
catch {$fd close}
|
||||
}
|
||||
|
@ -881,6 +882,7 @@ ts method getkey {mode} {
|
|||
lappend keys $key
|
||||
}
|
||||
}
|
||||
} on error {} {
|
||||
} finally {
|
||||
catch {$fd close}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue