[libio-socket-ip-perl] 01/02: Add 749212.patch patch

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libio-socket-ip-perl.

commit 3c530918ff9a2626dfe536fca267a285fcb6ed5c
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Mon Jun 9 06:48:38 2014 +0200

    Add 749212.patch patch
    
    IO::Socket::IP should not call $self->connect when retrying connect.
    
    Closes: #749212
    
    Thanks: Jakub Wilk <jwilk at debian.org> for the original report.
---
 debian/patches/749212.patch | 28 ++++++++++++++++++++++++++++
 debian/patches/series       |  1 +
 2 files changed, 29 insertions(+)

diff --git a/debian/patches/749212.patch b/debian/patches/749212.patch
new file mode 100644
index 0000000..3c7a312
--- /dev/null
+++ b/debian/patches/749212.patch
@@ -0,0 +1,28 @@
+Description: IO::Socket::IP should not call $self->connect when retrying connect
+Origin: upstream, https://rt.cpan.org/Ticket/Attachment/1370344/727620/rt95983.patch
+Bug: https://rt.cpan.org/Ticket/Display.html?id=95983
+Bug-Debian: https://bugs.debian.org/749212
+Forwarded: not-needed
+Author: Paul Evans <leonerd-cpan at leonerd.org.uk>
+Last-Update: 2014-06-09
+
+--- a/lib/IO/Socket/IP.pm
++++ b/lib/IO/Socket/IP.pm
+@@ -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;
diff --git a/debian/patches/series b/debian/patches/series
index 33abc24..02ad277 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 skip-internet-test
+749212.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libio-socket-ip-perl.git