add more fixes for peerhosts

[spider.git] / perl / AGWMsg.pm

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 76b80fde344ef5601c97df9df3f5837e1d744575..910d32cc4c94c50c1f75b023f1666014fcfcb352 100644 (file)
--- 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};
 }