From e9bc207f957d0d661d49ef639fd47097270d0331 Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Thu, 9 Feb 2012 21:53:49 +0000
Subject: Update IO-Socket-IP to CPAN version 0.008_004

  [DELTA]

  0.08_004 CHANGES:
         * Avoid locale-specific error message testing of $!
---
 Porting/Maintainers.pl                | 2 +-
 cpan/IO-Socket-IP/lib/IO/Socket/IP.pm | 2 +-
 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: {
-- 
cgit v1.2.1