From bc7d751b4d6e3e4c1b387c6695eed11dd0178fc6 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 17 Mar 2001 13:30:00 +0000
Subject: [PATCH] fix typo

---
 perl/Msg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
     
-- 
2.34.1