X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;fp=perl%2FDXChannel.pm;h=56b96faa126d91d1b3256d7bba8944dfc453402b;hb=ca5baf12f22e041cb14af595254af4ae88d82ae0;hp=8b1792cd148dc0caddb6f5180ef1907d149c7d05;hpb=c9fab2f4ef517442cb113c4081ff7d815622236d;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 8b1792cd..56b96faa 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -185,6 +185,8 @@ sub alloc
 	}
 	$self->{inqueue} = [];
 
+	$self->{hostname} = $self->{conn}->peerhost if $conn;
+
 	$count++;
 	dbg("DXChannel $self->{call} created ($count)") if isdbg('chan');
 	bless $self, $pkg;