Update IO-Socket-IP to CPAN version 0.08_005smoke-me/io-socket-ip

  [DELTA]

  0.08_005 CHANGES:
         * Ensure that errno gets set to EINVAL on getaddrinfo() failures

2 files changed, 12 insertions, 4 deletions

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index dcc733979b..38118a2698 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1013,7 +1013,7 @@ use File::Glob qw(:case);
 
     'IO::Socket::IP' => {
         'MAINTAINER'   => 'pevans',
-        'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.08_004.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.08_005.tar.gz',
         'FILES'        => q[cpan/IO-Socket-IP],
         'EXCLUDED'     => ['t/99pod.t'],
         'UPSTREAM'     => 'cpan',
diff --git a/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm b/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm
index 41bf2506ca..15372840b8 100644
--- a/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm
+++ b/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm
@@ -9,7 +9,7 @@ use strict;
 use warnings;
 use base qw( IO::Socket );
 
-our $VERSION = '0.08_004';
+our $VERSION = '0.08_005';
 
 use Carp;
 
@@ -424,7 +424,11 @@ sub _configure
          ( $err, @localinfos ) = getaddrinfo( $host, $fallback_port, \%localhints );
       }
 
-      $err and ( $@ = "$err", return );
+      if( $err ) {
+         $@ = "$err";
+         $! = EINVAL;
+         return;
+      }
    }
    delete $arg->{LocalHost};
    delete $arg->{LocalService};
@@ -449,7 +453,11 @@ sub _configure
          ( $err, @peerinfos ) = getaddrinfo( $host, $fallback_port, \%hints );
       }
 
-      $err and ( $@ = "$err", return );
+      if( $err ) {
+         $@ = "$err";
+         $! = EINVAL;
+         return;
+      }
    }
    delete $arg->{PeerHost};
    delete $arg->{PeerService};