From aa63cbca3fa8ba421d356f7e954a69e014204524 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 12 Jul 2007 21:53:28 +0100 Subject: [PATCH] fix another possible(?) error on broadcast p92 update --- perl/DXProt.pm | 4 ++++ perl/Version.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index ea41c083..e4e0aa49 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -893,6 +893,10 @@ sub broadcast_pc92_update dbg("ROUTE: broadcast_pc92_update $call") if isdbg('obscount'); my $nref = Route::Node::get($call); + unless ($nref) { + dbg("ERROR: broadcast_pc92_update - Route::Node $call disappeared"); + return; + } my $l = $nref->last_PC92C(gen_my_pc92_config($nref)); $main::me->broadcast_route_pc9x($main::mycall, undef, $l, 0); $self->update_pc92_next($pc92_update_period); diff --git a/perl/Version.pm b/perl/Version.pm index 141b473a..479b37a2 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '117'; +$build = '118'; 1; -- 2.43.0