diff options
Diffstat (limited to 'dev-perl')
-rw-r--r-- | dev-perl/Net-SNPP/Net-SNPP-1.170.0-r2.ebuild | 19 | ||||
-rw-r--r-- | dev-perl/Net-SNPP/files/Net-SNPP-1.17-dummy-timeout.patch | 42 |
2 files changed, 61 insertions, 0 deletions
diff --git a/dev-perl/Net-SNPP/Net-SNPP-1.170.0-r2.ebuild b/dev-perl/Net-SNPP/Net-SNPP-1.170.0-r2.ebuild new file mode 100644 index 000000000000..254e516e4518 --- /dev/null +++ b/dev-perl/Net-SNPP/Net-SNPP-1.170.0-r2.ebuild @@ -0,0 +1,19 @@ +# Copyright 1999-2017 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 + +EAPI=6 + +DIST_AUTHOR=TOBEYA +DIST_VERSION=1.17 +DIST_EXAMPLES=( "bin/*" ) +inherit perl-module + +DESCRIPTION="libnet SNPP component" + +SLOT="0" +KEYWORDS="~amd64 ~ia64 ~ppc ~sparc ~x86" +IUSE="" + +RDEPEND="virtual/perl-libnet" +DEPEND="${RDEPEND}" +PATCHES=("${FILESDIR}/${PN}-1.17-dummy-timeout.patch") diff --git a/dev-perl/Net-SNPP/files/Net-SNPP-1.17-dummy-timeout.patch b/dev-perl/Net-SNPP/files/Net-SNPP-1.17-dummy-timeout.patch new file mode 100644 index 000000000000..6b952e6643c6 --- /dev/null +++ b/dev-perl/Net-SNPP/files/Net-SNPP-1.17-dummy-timeout.patch @@ -0,0 +1,42 @@ +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 + |