For the moment, there is no way to do that.
If you feel like recompiling and apply workarounds ("hacks"), you can use that hack followed by that one.
Code: Select all
bind time - * checksqlalive
proc checksqlalive {args} {
mysql::ping $::dbhandle
}