From: Dirk Koopman <djk@tobit.co.uk>
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://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=64d7fcd04e89143f23455c5aae3cc4e410700870;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;