fix EOF detection of incoming nodes

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index a02edc9ee200c69c5624151dc52f4e278458cc7d..a000e17ac4657159c5a212514cf9c31a1320a53f 100644 (file)
--- 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
 {