X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=a1dca22391ace8c49b762d942b645bafbb1fe8f1;hb=59f80532f10bf3101b954ed30069f55b95476984;hp=9a782960827068a10265f69f84ab17044283749c;hpb=69c8aeb338cc485103e289fbab7ec4e7e056ed20;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 9a782960..a1dca223 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -41,7 +41,7 @@ sub pc11
 	my $hops = get_hops(11);
 	my $t = time;
 	$text = ' ' if !$text;
-	return sprintf "PC11^%.1f^$dxcall^%s^%s^$text^$mycall^$hops^~", $freq, cldate($t), ztime($t);
+	return sprintf "PC11^%.1f^$dxcall^%s^%s^$text^$mycall^$main::mycall^$hops^~", $freq, cldate($t), ztime($t);
 }
 
 # create an announce message