X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;fp=perl%2Fconsole.pl;h=aee1bc9ba485253b28b67eba16885602473fc25d;hb=586cbb347e7639f5575b48572e75140501a109c0;hp=208eb90a4b8969fd8fbd8e95d4386fdd07f39f85;hpb=e674587476599456cce169e02b0e441d985f9dd8;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 208eb90a..aee1bc9b 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -104,9 +104,7 @@ sub do_resize
 sub cease
 {
 	my $sendz = shift;
-#	if ($conn && $sendz) {
-#		$conn->send_now("Z$call|bye...");
-#	}
+	$conn->disconnect if $conn;
 	endwin();
 	dbgclose();
 	print @_ if @_;
@@ -437,6 +435,8 @@ if (! $conn) {
 	exit(0);
 }
 
+$conn->set_error(sub{cease(0)});
+
 
 unless ($DB::VERSION) {
 	$SIG{'INT'} = \&sig_term;