From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 4 Apr 2011 21:08:02 +0000 (+0100)
Subject: fix IPV4 handling on non-IPV6 capable hosts
X-Git-Tag: 1.56~11
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=af317b42b0135f6d63547d74ee70fda982e31808

fix IPV4 handling on non-IPV6 capable hosts
---

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;