fix missing origin for isolated nodes

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7fd9e7ef14673100d48ace457c124b7264af1f65..cbd0ff65a92480a839db78234bea83929e800903 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -2037,7 +2037,7 @@ sub send_local_config
        # send our nodes
        if ($self->{isolate}) {
                @localnodes = ( $main::routeroot );
-               $self->send_route(\&pc19, 1, $main::routeroot, $main::routeroot);
+               $self->send_route($main::mycall, \&pc19, 1, $main::routeroot, $main::routeroot);
        } else {
                # create a list of all the nodes that are not connected to this connection
                # and are not themselves isolated, this to make sure that isolated nodes