1. tidy up AUTOLOAD

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 60b0f1e6be9eec8c6ca340f5d871be739e0b45ea..53bd418ba6fc63e7dc7d627f788a8a74c750a94f 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1607,9 +1607,8 @@ sub send_local_config
        # get all the users connected on the above nodes and send them out
        foreach $node (@localnodes, @remotenodes) {
                if ($node) {
-                       $self->send_route(\&pc16, 1, $node, 
-                                                         map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users)
-                               if $self->user->wantsendpc16;
+                       my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users;
+                       $self->send_route(\&pc16, 1, $node, @rout) if @rout && $self->user->wantsendpc16;
                } else {
                        dbg("sent a null value") if isdbg('chanerr');
                }