X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=910d32cc4c94c50c1f75b023f1666014fcfcb352;hp=76b80fde344ef5601c97df9df3f5837e1d744575;hb=c02dc2d8b544b9d682c9a068ba13bdedf40ed3bf;hpb=7c7080ad7019d6e23a8ad401256122e81fa03a5a

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 76b80fde..910d32cc 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -412,7 +412,7 @@ sub _find
 sub peerhost
 {
 	my $conn = shift;
-	$conn->{peerhost} ||= $conn->{agwcall} || "UNKNOWN";
+	$conn->{peerhost} ||= 'ax25';
 	return $conn->{peerhost};
 }