fix typo

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b7be27d3e272ebc3bb780dffef736206b11ee46e..403303dd05df5bafa77a2b8bb1e37c4d09e0587f 100644 (file)
--- 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;