X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=a000e17ac4657159c5a212514cf9c31a1320a53f;hb=4b94818ce60ca5727ceb77b0b5d752d5f5324680;hp=a02edc9ee200c69c5624151dc52f4e278458cc7d;hpb=c675748ded5843f7bbd3819bb550f66b2534193a;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index a02edc9e..a000e17a 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -743,6 +743,16 @@ sub handle_xml
 	return $r;
 }
 
+sub error_handler
+{
+	my $self = shift;
+	my $error = shift || '';
+	dbg("$self->{call} ERROR '$error', closing") if isdbg('chan');
+	$self->{conn}->set_error(undef) if exists $self->{conn};
+	$self->disconnect(1);
+}
+
+
 #no strict;
 sub AUTOLOAD
 {