X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=352904102e32cf35d183ffcd1395e42f5c9c87a0;hb=0702d383db04a014535eb7cba323da7e763e219d;hp=52f0efd477aefbee6d622f0c708d92875b31eeca;hpb=a60f14f41cc0b63a9a6e94bc78aecaf4b04a48c6;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 52f0efd4..35290410 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -141,7 +141,7 @@ sub connect {
 
 		connect => [$to_host, $to_port],
 
-#		on_connect => sub {my $h = shift; $conn->{peerhost} = $h->handle->peername;},
+		on_connect => sub {my $h = shift; $conn->{peerhost} = shift;},
 
 		on_eof => sub {$conn->disconnect},