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 712b478539c79973e47895fdcfc17a98a97e5952..bc753c3d784e6b053a5d67d147a8807d7ef6f855 100644 (file)
--- 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;
                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;
                }
                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);
        }
                }
                $self->send_route($main::mycall, \&pc19, scalar(@remotenodes), @remotenodes);
        }

diff --git a/perl/Version.pm b/perl/Version.pm
index 3906391ebefec0b5002fe74d6c6c0c2df6d58c72..5b13b540872671748f58aa3bbfa7aa6e867c7d50 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';

-$build = '121';
+$build = '122';

 
 1;
 
 1;