From: Dirk Koopman Date: Fri, 20 Jul 2007 08:27:45 +0000 (+0100) Subject: protect send_local_config from processing undef nodes X-Git-Tag: 1.55~93 X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=64d7fcd04e89143f23455c5aae3cc4e410700870;hp=efdf578cb0e69807c50a93427a34ab36a23f3823;p=spider.git 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... --- 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;