X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXMsg.pm;h=11a30a4ed5458c582b3f6bb8432d03500583dc1b;hb=6c38bca91e6b75002e15cce29c45a894f675e22e;hp=65577607be6d30635f2053e417df6b98b3de7fa0;hpb=08c1d4cfc96357b3706f50d683c53abfe802d16b;p=spider.git diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 65577607..11a30a4e 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -616,7 +616,7 @@ sub queue_msg next if $ref->{'read'}; # if it is read, it is stuck here $clref = DXCluster->get_exact($ref->{to}); unless ($clref) { # otherwise look for a homenode - my $uref = DXUser->get($ref->{to}); + my $uref = DXUser->get_current($ref->{to}); my $hnode = $uref->homenode if $uref; $clref = DXCluster->get_exact($hnode) if $hnode; }