diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2012-02-09 21:53:49 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2012-02-09 21:53:49 +0000 |
| commit | e9bc207f957d0d661d49ef639fd47097270d0331 (patch) | |
| tree | 6df5e025397bbd0c68f072fb3d2631a483a00839 | |
| parent | 32041545287c3939b2649413b95d6fd51035422c (diff) | |
| download | perl-e9bc207f957d0d661d49ef639fd47097270d0331.tar.gz | |
Update IO-Socket-IP to CPAN version 0.008_004
[DELTA]
0.08_004 CHANGES:
* Avoid locale-specific error message testing of $!
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/IO-Socket-IP/lib/IO/Socket/IP.pm | 2 | ||||
| -rw-r--r-- | cpan/IO-Socket-IP/t/16v6only.t | 6 |
3 files changed, 7 insertions, 3 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index de5a9ba76a..dcc733979b 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_003.tar.gz', + 'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.08_004.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 daaa5af0ad..41bf2506ca 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_003'; +our $VERSION = '0.08_004'; use Carp; diff --git a/cpan/IO-Socket-IP/t/16v6only.t b/cpan/IO-Socket-IP/t/16v6only.t index fc0e42b780..311c8286d5 100644 --- a/cpan/IO-Socket-IP/t/16v6only.t +++ b/cpan/IO-Socket-IP/t/16v6only.t @@ -11,6 +11,10 @@ eval { IO::Socket::IP->new( LocalHost => "::1" ) } or plan tests => 6; +# Don't be locale-sensitive +$! = Errno::ECONNREFUSED; +my $ECONNREFUSED_STR = "$!"; + { my $listensock = IO::Socket::IP->new( Listen => 1, @@ -31,7 +35,7 @@ plan tests => 6; my $err = "$@"; ok( !defined $testsock, 'Unable to connect PF_INET socket to PF_INET6 socket with V6Only true' ); - like( $err, qr/Connection refused/, 'Socket creation fails with connection refused' ); + like( $err, qr/\Q$ECONNREFUSED_STR/, 'Socket creation fails with connection refused' ); } SKIP: { |