X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXChannel.pm;h=a000e17ac4657159c5a212514cf9c31a1320a53f;hb=3e1e7b56903a67dde9ea8ecebbc507fcf9bbb402;hp=a02edc9ee200c69c5624151dc52f4e278458cc7d;hpb=6b904a6db275029dd6d7a5cf0a48c1f0770ea8c2;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
 {