From af317b42b0135f6d63547d74ee70fda982e31808 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 4 Apr 2011 22:08:02 +0100
Subject: [PATCH] fix IPV4 handling on non-IPV6 capable hosts

---
 perl/Msg.pm     | 4 ++--
 perl/Version.pm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 6805e008..d09527ab 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -224,10 +224,10 @@ sub connect {
 	
 	my $sock;
 	if ($blocking_supported) {
-		$sock = $io_socket->new(PeerAddr => $to_host, PeerPort => $to_port, Proto => 'tcp', Blocking =>0);
+		$sock = $io_socket->new(PeerAddr => $to_host, PeerPort => $to_port, Proto => 'tcp', Blocking =>0) or return undef;
 	} else {
 		# Create a new internet socket
-		my $sock = $io_socket->new();
+		$sock = $io_socket->new();
 		return undef unless $sock;
 
 		my $proto = getprotobyname('tcp');
diff --git a/perl/Version.pm b/perl/Version.pm
index fa1654f2..cdb3ad99 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.55';
 $subversion = '0';
-$build = '88';
-$gitversion = 'dd4a4bf';
+$build = '89';
+$gitversion = 'a8cf544';
 
 1;
-- 
2.43.0