From af317b42b0135f6d63547d74ee70fda982e31808 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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