From 1d33367ca97e5283c58c9834b24ea825cb633b97 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 16 Sep 2014 15:24:19 +0100
Subject: [PATCH] Fix (now) missing dxchan error_handler

---
 Changes         | 2 ++
 perl/Version.pm | 4 ++--
 perl/cluster.pl | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index a2fbebf3..6321bfe6 100644
--- 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 8b17672d..03c1519c 100644
--- 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 a811cd27..ab667324 100755
--- 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);
-- 
2.34.1