X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUDP.pm;h=01c3b3b0339e4e37dc353d9e469b2426bb353cbd;hb=7b01da28872dd9fb93e9dc29683869a851efd6cc;hp=d9dda00cdbce80c7c5462965fffe28e1c8a22fc6;hpb=0527b7c5dc1f7e87eb6de0f7f6ce2f2ec27dd11e;p=spider.git

diff --git a/perl/DXUDP.pm b/perl/DXUDP.pm
index d9dda00c..01c3b3b0 100644
--- a/perl/DXUDP.pm
+++ b/perl/DXUDP.pm
@@ -140,6 +140,8 @@ sub _incoming {
 	$self->emit(read => $datagram);
 }	
 
+has peerhost => sub { return $_[0]->{socket}->peerhost };
+has peerport => sub { return $_[0]->{socket}->peerport };
 
 sub DEMOLISH {
     my $self = shift;