X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=5797c63ff8d3c9d0e801eb49ce082053083cdafd;hb=093ac03207bd4468fa89dc7438936b245a92cbe5;hp=e1c29843a0f3b8e389893e994c293979d7e5469e;hpb=d8b3b94c40205c64e08402f4a4b272a55c14f80d;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index e1c29843..5797c63f 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -425,7 +425,7 @@ sub normal return if $pcno == 27; # broadcast to the eager users - broadcast_users("WWV de $field[7] <$field[2]>: SFI=$sfi, K=$k, A=$i, $field[6]", 'wwv', $wwv ); + broadcast_users("WWV de $field[7] <$field[2]>: SFI=$sfi, A=$k, K=$i, $field[6]", 'wwv', $wwv ); last SWITCH; } @@ -695,7 +695,8 @@ sub send_local_config # and are not themselves isolated, this to make sure that isolated nodes # don't appear outside of this node @nodes = DXNode::get_all(); - @nodes = grep { $_->dxchan != $self && !$_->{isolate} } @nodes; + @nodes = grep { $_->dxchan != $self } @nodes; + @nodes = grep { !($_->dxchan && $_->dxchan->isolate) } @nodes; } my @s = $me->pc19(@nodes);