X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=97aaa35514b21060cf8fc5ac78f09a47080a7a09;hb=ca18864d1264fadfe9869b630f05c950876c2169;hp=5a796935a65317bd79643a1311b073fe77b1a6bc;hpb=8942c27356acc5d5f5a20134461bcf7e6bd6a044;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 5a796935..97aaa355 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -76,7 +76,7 @@ sub alloc
 	$self->{msgno} = shift;
 	my $to = shift;
 	#  $to =~ s/-\d+$//o;
-	$self->{to} = $to;
+	$self->{to} = ($to eq $main::mycall) ? $main::myalias : $to;
 	my $from = shift;
 	$from =~ s/-\d+$//o;
 	$self->{from} = uc $from;