This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update IO-Socket-IP to CPAN version 0.30
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 4 Jul 2014 09:11:37 +0000 (10:11 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 4 Jul 2014 09:11:37 +0000 (10:11 +0100)
  [DELTA]

0.30    2014/07/03 23:28:43
        [CHANGES]
         * Invoke $self->connect fully-qualified in case of subclasses with
           override (RT95983)
         * Added extra diag() call in t/15io-socket.t (RT96914)

Porting/Maintainers.pl
cpan/IO-Socket-IP/Changes
cpan/IO-Socket-IP/LICENSE
cpan/IO-Socket-IP/META.json
cpan/IO-Socket-IP/META.yml
cpan/IO-Socket-IP/Makefile.PL
cpan/IO-Socket-IP/lib/IO/Socket/IP.pm
cpan/IO-Socket-IP/t/15io-socket.t

index 607df28..34e14b4 100755 (executable)
@@ -622,7 +622,7 @@ use File::Glob qw(:case);
     },
 
     'IO::Socket::IP' => {
-        'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.29.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.30.tar.gz',
         'FILES'        => q[cpan/IO-Socket-IP],
         'EXCLUDED'     => [
             qr{^examples/},
index e647142..ed79c5b 100644 (file)
@@ -1,5 +1,11 @@
 Revision history for IO-Socket-IP
 
+0.30    2014/07/03 23:28:43
+        [CHANGES]
+         * Invoke $self->connect fully-qualified in case of subclasses with
+           override (RT95983)
+         * Added extra diag() call in t/15io-socket.t (RT96914)
+
 0.29    2014/02/24 16:06:29
         [BUGFIXES]
          * Workaround for OSes that disobey AI_ADDRCONFIG and yield AIs on
index 0c0af11..8b5c176 100644 (file)
@@ -22,7 +22,7 @@ This is free software, licensed under:
                      Version 1, February 1989
 
  Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA  02110-1335  USA
+ 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
  Everyone is permitted to copy and distribute verbatim copies
  of this license document, but changing it is not allowed.
index b6e4390..f3a0860 100644 (file)
@@ -4,7 +4,7 @@
       "Paul Evans <leonerd@leonerd.org.uk>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "Module::Build version 0.4204",
+   "generated_by" : "Module::Build version 0.4205",
    "license" : [
       "perl_5"
    ],
@@ -29,7 +29,7 @@
    "provides" : {
       "IO::Socket::IP" : {
          "file" : "lib/IO/Socket/IP.pm",
-         "version" : "0.29"
+         "version" : "0.30"
       }
    },
    "release_status" : "stable",
@@ -38,5 +38,5 @@
          "http://dev.perl.org/licenses/"
       ]
    },
-   "version" : "0.29"
+   "version" : "0.30"
 }
index f860cc0..452a25d 100644 (file)
@@ -5,7 +5,7 @@ author:
 build_requires:
   Test::More: '0.88'
 dynamic_config: 1
-generated_by: 'Module::Build version 0.4204, CPAN::Meta::Converter version 2.133380'
+generated_by: 'Module::Build version 0.4205, CPAN::Meta::Converter version 2.133380'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -14,10 +14,10 @@ name: IO-Socket-IP
 provides:
   IO::Socket::IP:
     file: lib/IO/Socket/IP.pm
-    version: '0.29'
+    version: '0.30'
 requires:
   IO::Socket: '0'
   Socket: '1.97'
 resources:
   license: http://dev.perl.org/licenses/
-version: '0.29'
+version: '0.30'
index 796159d..c25bfd0 100644 (file)
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4204
+# Note: this file was auto-generated by Module::Build::Compat version 0.4205
 use ExtUtils::MakeMaker;
 WriteMakefile
 (
index 30e0464..1911145 100644 (file)
@@ -7,7 +7,7 @@ package IO::Socket::IP;
 # $VERSION needs to be set before  use base 'IO::Socket'
 #  - https://rt.cpan.org/Ticket/Display.html?id=92107
 BEGIN {
-   $VERSION = '0.29';
+   $VERSION = '0.30';
 }
 
 use strict;
@@ -601,7 +601,7 @@ sub setup
       }
 
       if( defined( my $addr = $info->{peeraddr} ) ) {
-         if( $self->connect( $addr ) ) {
+         if( $self->IO::Socket::IP::connect( $addr ) ) {
             $! = 0;
             return 1;
          }
@@ -651,7 +651,7 @@ sub connect
    # (still in progress). This even works on MSWin32.
    my $addr = ${*$self}{io_socket_ip_infos}[${*$self}{io_socket_ip_idx}]{peeraddr};
 
-   if( $self->connect( $addr ) or $! == EISCONN ) {
+   if( $self->IO::Socket::IP::connect( $addr ) or $! == EISCONN ) {
       delete ${*$self}{io_socket_ip_connect_in_progress};
       $! = 0;
       return 1;
index 1b0cc4e..8acc9a7 100644 (file)
@@ -17,7 +17,8 @@ use IO::Socket::IP -register;
       LocalPort => 0,
    );
 
-   isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET )' );
+   isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET )' ) or
+      diag( "  error was $@" );
 
    $sock = IO::Socket->new(
       Domain    => AF_INET,