add more fixes for peerhosts

[spider.git] / perl / BPQMsg.pm

diff --git a/perl/BPQMsg.pm b/perl/BPQMsg.pm
index e5ca707789a0ef67ff5efc6fc05e706d73e5a43a..e95ae399900aa14ca6eee8320a8df02e96cdfef0 100644 (file)
--- a/perl/BPQMsg.pm
+++ b/perl/BPQMsg.pm
@@ -134,6 +134,13 @@ sub active
        return $Buffers;
 }
 
+sub peerhost
+{
+       my $conn = shift;
+       $conn->{peerhost} ||= 'ax25';
+       return $conn->{peerhost};
+}
+
 
 sub connect
 {