put back broadcast_all_nodes

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 01d2135e657e834eac2bf100d5e61f2e443f6036..463d43a2773d8b3d004f446675ae3bd03c250af7 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -544,7 +544,7 @@ sub broadcast_nodes
 
 # broadcast a message to all clusters ignoring isolation
 # [except those mentioned after buffer]
-sub broadcast_all_ak1a
+sub broadcast_all_nodes
 {
        my $s = shift;                          # the line to be rebroadcast
        my @except = @_;                        # to all channels EXCEPT these (dxchannel refs)