Fix (now) missing dxchan error_handler

diff --git a/Changes b/Changes
index a2fbebf3de0ac17cacc43c9cd6e175a5089d3fe9..6321bfe6d8848ea5e10f460a56c9f5efb62f4e5b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+16Sep14=======================================================================
+1. Fix (now) missing error_handler
 30Aug14=======================================================================
 1. add CTY-2409 prefixes
 2. add new wpxloc.raw

diff --git a/perl/Version.pm b/perl/Version.pm
index 8b17672d1c4d659f33186a9207ca88f20ab35ae1..03c1519cb98cbae2a769b2da790972fa534cbda3 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -10,7 +10,7 @@ package main;
 use vars qw($version $build $gitversion);
 
 $version = '1.57';
-$build = '41';
-$gitversion = '4d20bb1';
+$build = '42';
+$gitversion = '03e07f8';
 
 1;

diff --git a/perl/cluster.pl b/perl/cluster.pl
index a811cd2779ba7b1174ebbd58c316a28482a5c10a..ab6673247fcf04c899d1756eb24766493fce7641 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -237,7 +237,7 @@ sub new_channel
        $conn->conns($call) if $conn->isa('IntMsg');
 
        # set callbacks
-       $conn->set_error(sub {my $err = shift; error_handler($dxchan, $err)});
+       $conn->set_error(sub {my $err = shift; LogDbg('DXCommand', "Comms error '$err' received for call $dxchan->{call}"); $dxchan->disconnect(1);});
        $conn->set_on_eof(sub {$dxchan->disconnect});
        $conn->set_rproc(sub {my ($conn,$msg) = @_; $dxchan->rec($msg);});
        $dxchan->rec($msg);