projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changes to perl/Messages from ea1dav
[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);
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;
}
unless ($r) {
return undef unless $! == EINPROGRESS;
}