X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=839b5e453313e05db16f6f536ba26d3e4b1cdd31;hb=2bbb601161d60a41289bd19b73fc35c24d5c6b71;hp=eb6892a8f1f3568f41bbda4dd3316fe78f63ee98;hpb=15ee0303d77c205e68144dfd8d8a4e0110bbe5ea;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index eb6892a8..839b5e45 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -135,7 +135,8 @@ sub connect {
 	
 	blocking($sock, 0);
 	my $ip = gethostbyname($to_host);
-	my $r = $sock->connect($to_port, $ip);
+#	my $r = $sock->connect($to_port, $ip);
+	my $r = connect($sock, pack_sockaddr_in($to_port, $ip));
 	unless ($r) {
 		return undef unless $! == EINPROGRESS;
 	}