From 64d7fcd04e89143f23455c5aae3cc4e410700870 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 20 Jul 2007 09:27:45 +0100 Subject: [PATCH 1/1] protect send_local_config from processing undef nodes Don't understand how this is possible but if it happens much more I am going to have to do some serious digging... --- perl/DXProt.pm | 8 ++++---- perl/Version.pm | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 712b4785..bc753c3d 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -823,13 +823,13 @@ sub send_local_config my $node; my @rawintcalls = map { $_->nodes } @localnodes if @localnodes; my @intcalls; - for $node (@rawintcalls) { - push @intcalls, $node unless grep $node eq $_, @intcalls; + foreach $node (@rawintcalls) { + push @intcalls, $node if grep $_ && $node != $_, @intcalls; } my $ref = Route::Node::get($self->{call}); my @rnodes = $ref->nodes; - for $node (@intcalls) { - push @remotenodes, Route::Node::get($node) unless grep $node eq $_, @rnodes, @remotenodes; + foreach $node (@intcalls) { + push @remotenodes, Route::Node::get($node) if grep $_ && $node != $_, @rnodes, @remotenodes; } $self->send_route($main::mycall, \&pc19, scalar(@remotenodes), @remotenodes); } diff --git a/perl/Version.pm b/perl/Version.pm index 3906391e..5b13b540 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 = '121'; +$build = '122'; 1; -- 2.43.0