[libnet-snpp-perl] 01/06: Add patch from CPAN RT for libnet-3.08 compatibility.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libnet-snpp-perl.

commit 31a5e8df3f8a2a56f5547b6f0b13503178ed4363
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Aug 19 21:54:21 2016 +0200

    Add patch from CPAN RT for libnet-3.08 compatibility.
    
    Closes: #825609
---
 ...1.17-Define-dummy-Net-SNPP-Server-timeout.patch | 49 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 50 insertions(+)

diff --git a/debian/patches/Net-SNPP-1.17-Define-dummy-Net-SNPP-Server-timeout.patch b/debian/patches/Net-SNPP-1.17-Define-dummy-Net-SNPP-Server-timeout.patch
new file mode 100644
index 0000000..34bd322
--- /dev/null
+++ b/debian/patches/Net-SNPP-1.17-Define-dummy-Net-SNPP-Server-timeout.patch
@@ -0,0 +1,49 @@
+From ca1772ca23fe771ea91b7557aa0cb2b035961fee Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Mon, 18 Jan 2016 14:33:00 +0100
+Subject: [PATCH] Define dummy Net::SNPP::Server->timeout
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Since libnet-3.08, Net::Cmd subclasses should provide timeout()
+method. Otherwise tests fail like in CPAN RT#111013. See #110978.
+
+This patch returns static 0 value because the first timeout() argument
+is not an object reference. This is probably because Net::SNPP::Server
+does not subclass Net::Cmd properly. See libnet's t/datasend.t for
+example.
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=111013
+Bug-Debian: https://bugs.debian.org/825609
+
+Note: This patch can be removed when libnet-3.09 becomes available which
+defines a default Net::Cmd::timeout():
+https://github.com/steve-m-hay/perl-libnet/commit/91e593b615334fa76ef0454c4e601b98b6663841
+
+---
+ lib/Net/SNPP/Server.pm | 6 ++++++
+ 1 file changed, 6 insertions(+)
+
+diff --git a/lib/Net/SNPP/Server.pm b/lib/Net/SNPP/Server.pm
+index 5cb999f..1482ca7 100644
+--- a/lib/Net/SNPP/Server.pm
++++ b/lib/Net/SNPP/Server.pm
+@@ -129,6 +129,12 @@ sub new {
+     return bless( $self, $class );
+ }
+ 
++# Required by Net::Cmd, CPAN RT#111013, #110978
++sub timeout {
++    # The $_[0] is not an object reference, cannot use $self->{Timeout}
++    0;
++}
++
+ =item client()
+ 
+ Calls accept() for you and returns a client handle.  This method
+-- 
+2.5.0
+
diff --git a/debian/patches/series b/debian/patches/series
index 566a643..1194802 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix_manpage.patch
+Net-SNPP-1.17-Define-dummy-Net-SNPP-Server-timeout.patch

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