diff options
-rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
-rw-r--r-- | cpan/IO-Socket-IP/lib/IO/Socket/IP.pm | 14 |
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}; |