X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=88433b5726985a04dc17ed47163c270d272a125c;hb=7daa8d6f851534f39e6ed305b49d1f95c994bce6;hp=e41951da26b4f932be9b8103bb52e75e21adcfcd;hpb=33c95e70cc90be9f60c4efd73717386b299048f7;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e41951da..88433b57 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1605,10 +1605,7 @@ sub process_rcmd_reply
 		my $s = $rcmds{$fromnode};
 		if ($s) {
 			my $dxchan = DXChannel->get($s->{call});
-			my $ref = DXChannel->get($user) || $dxchan;
-			if ($ref->{call} eq $main::mycall) {
-				$ref = DXChannel->get($main::myalias) || $ref;
-			}
+			my $ref = $user eq $tonode ? $dxchan : (DXChannel->get($user) || $dxchan);
 			$ref->send($line) if $ref;
 			delete $rcmds{$fromnode} if !$dxchan;
 		} else {