[libx11-protocol-perl] 01/04: Use IO::Socket::IP for IPv6 support if available. Closes: #732999

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libx11-protocol-perl.

commit 27b0ac6e84b7b910a71989bc885b007042b43905
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Apr 11 22:39:59 2014 +0200

    Use IO::Socket::IP for IPv6 support if available.  Closes: #732999
---
 debian/changelog                  |  5 ++++-
 debian/control                    |  1 +
 debian/patches/io-socket-ip.patch | 32 ++++++++++++++++++++++++++++++++
 debian/patches/series             |  1 +
 4 files changed, 38 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 0104ff6..a4ea430 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,7 +7,10 @@ libx11-protocol-perl (0.56-5) UNRELEASED; urgency=low
   [ gregor herrmann ]
   * Strip trailing slash from metacpan URLs.
 
- -- Salvatore Bonaccorso <carnil at debian.org>  Sun, 06 Jan 2013 22:09:03 +0100
+  [ Ivan Shmakov ]
+  * Use IO::Socket::IP for IPv6 support if available.  Closes: #732999
+
+ -- Ivan Shmakov <ivan at siamics.net>  Fri, 11 Apr 2014 16:40:43 +0000
 
 libx11-protocol-perl (0.56-4) unstable; urgency=low
 
diff --git a/debian/control b/debian/control
index 956ddc9..208e8a5 100644
--- a/debian/control
+++ b/debian/control
@@ -13,6 +13,7 @@ Homepage: https://metacpan.org/release/X11-Protocol
 Package: libx11-protocol-perl
 Architecture: all
 Depends: ${perl:Depends}, ${misc:Depends}
+Recommends: libio-socket-ip
 Description: Perl module for the X Window System Protocol, version 11
  X11::Protocol is a client-side interface to the X11 Protocol (see X(1) for
  information about X11), allowing perl programs to display windows and
diff --git a/debian/patches/io-socket-ip.patch b/debian/patches/io-socket-ip.patch
new file mode 100644
index 0000000..0af96e4
--- /dev/null
+++ b/debian/patches/io-socket-ip.patch
@@ -0,0 +1,32 @@
+Description: Use IO::Socket::IP if available (or IO::Socket::INET if not)
+ This brings support for IPv6.
+Bug-Debian: http://bugs.debian.org/732999
+Bug: https://rt.cpan.org/Ticket/Display.html?id=94653
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=94653
+Author: Ivan Shmakov <ivan at siamics.net>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2014-04-11
+Applied-Upstream: *** FIXME ***
+
+--- a/Protocol/Connection/INETSocket.pm
++++ b/Protocol/Connection/INETSocket.pm
+@@ -17,10 +17,18 @@ use vars qw($VERSION @ISA);
+ 
+ $VERSION = 0.01;
+ 
++our $SOCKET_CLASS;
++
++$SOCKET_CLASS
++    = ((eval { require IO::Socket::IP })
++       ? "IO::Socket::IP"
++       : do { require IO::Socket::INET; "IO::Socket::INET"; })
++    unless (defined ($SOCKET_CLASS));
++
+ sub open {
+     my($pkg) = shift;
+     my($host, $dispnum) = @_;
+-    my($sock) = IO::Socket::INET->new('PeerAddr' => $host,
++    my($sock) = $SOCKET_CLASS->new   ('PeerAddr' => $host,
+ 				      'PeerPort' => 6000 + $dispnum,
+ 				      'Type' => SOCK_STREAM(),
+ 				      'Proto' => "tcp");
diff --git a/debian/patches/series b/debian/patches/series
index 5299247..2443084 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 spelling.patch
+io-socket-ip.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libx11-protocol-perl.git