From: minima <minima>
Date: Sat, 17 Mar 2001 13:30:00 +0000 (+0000)
Subject: fix typo
X-Git-Tag: R_1_47~107
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc7d751b4d6e3e4c1b387c6695eed11dd0178fc6;p=spider.git

fix typo
---

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;