X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBPQMsg.pm;h=e95ae399900aa14ca6eee8320a8df02e96cdfef0;hb=c02dc2d8b544b9d682c9a068ba13bdedf40ed3bf;hp=e5ca707789a0ef67ff5efc6fc05e706d73e5a43a;hpb=7c7080ad7019d6e23a8ad401256122e81fa03a5a;p=spider.git

diff --git a/perl/BPQMsg.pm b/perl/BPQMsg.pm
index e5ca7077..e95ae399 100644
--- 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
 {