X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=403303dd05df5bafa77a2b8bb1e37c4d09e0587f;hb=4f3bdfa16cf0d5adf08ef13fc06384e39db485c6;hp=b7be27d3e272ebc3bb780dffef736206b11ee46e;hpb=a711fc132a7e18e67def6abeba3f8d18bbaae72f;p=spider.git

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