change interface to connect

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index eb6892a8f1f3568f41bbda4dd3316fe78f63ee98..839b5e453313e05db16f6f536ba26d3e4b1cdd31 100644 (file)
--- 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;
        }