Files
gentoo/dev-perl/Net-SNPP/files/Net-SNPP-1.17-dummy-timeout.patch
Kent Fredric c77acfef48 dev-perl/Net-SNPP: EAPI6 + tests + Bugfix
- EAPI6ify
- Enable tests
- Add patch for RT#111013 exposed by adding tests

Package-Manager: Portage-2.3.18, Repoman-2.3.6
2017-12-16 23:53:08 +13:00

43 lines
1.3 KiB
Diff

From bf788b84b81d244912c4d729d21fb5fa6b131ecd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Mon, 18 Jan 2016 14:33:00 +0100
Subject: 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.
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=111013
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
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.15.1