X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=00569928165bb2a630862b4d1fd9603ee05f6d8a;hb=fb0820fe3b3d60f189483716f72e3bce02fcd1c2;hp=c3637fb0bf6843320e97bf0c658e19345007c073;hpb=e8fe72d833414c4bb7f017ed0b62167aa5ac593d;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index c3637fb0..00569928 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -217,7 +217,6 @@ sub connect {
 	my $ip = gethostbyname($to_host);
 	return undef unless $ip;
 	
-#	my $r = $sock->connect($to_port, $ip);
 	my $r = connect($sock, pack_sockaddr_in($to_port, $ip));
 	return undef unless $r || _err_will_block($!);