sub cease
{
my $sendz = shift;
-# if ($conn && $sendz) {
-# $conn->send_now("Z$call|bye...");
-# }
+ $conn->disconnect if $conn;
endwin();
dbgclose();
print @_ if @_;
exit(0);
}
+$conn->set_error(sub{cease(0)});
+
unless ($DB::VERSION) {
$SIG{'INT'} = \&sig_term;