From bc7d751b4d6e3e4c1b387c6695eed11dd0178fc6 Mon Sep 17 00:00:00 2001 From: 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.43.0