From 1d33367ca97e5283c58c9834b24ea825cb633b97 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0