commit: a7ea13e2a629d7fdc89e1d926574d76c57837380
Author: Kent Fredric <kentnl <AT> gentoo <DOT> org>
AuthorDate: Thu Nov 10 14:23:37 2016 +0000
Commit: Kent Fredric <kentnl <AT> gentoo <DOT> org>
CommitDate: Thu Nov 10 15:14:51 2016 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=a7ea13e2
dev-perl/DB_File-Lock: Fix test failure on perl >5.20
Package-Manager: portage-2.3.2
.../DB_File-Lock/DB_File-Lock-0.50.0-r1.ebuild | 4 ++-
.../files/DB_File-Lock-0.05-RT98224.patch | 29 ++++++++++++++++++++++
2 files changed, 32 insertions(+), 1 deletion(-)
diff --git a/dev-perl/DB_File-Lock/DB_File-Lock-0.50.0-r1.ebuild
b/dev-perl/DB_File-Lock/DB_File-Lock-0.50.0-r1.ebuild
index 0ad4cc4..0f9649b 100644
--- a/dev-perl/DB_File-Lock/DB_File-Lock-0.50.0-r1.ebuild
+++ b/dev-perl/DB_File-Lock/DB_File-Lock-0.50.0-r1.ebuild
@@ -1,4 +1,4 @@
-# Copyright 1999-2014 Gentoo Foundation
+# Copyright 1999-2016 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Id$
@@ -17,4 +17,6 @@ IUSE=""
RDEPEND="virtual/perl-DB_File"
DEPEND="${RDEPEND}"
+PATCHES=("${FILESDIR}/${PN}-${MODULE_VERSION}-RT98224.patch")
+
SRC_TEST=do
diff --git a/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch
b/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch
new file mode 100644
index 00000000..6826daf
--- /dev/null
+++ b/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch
@@ -0,0 +1,29 @@
+From 247a7ec3a57f2bca977531281f258d5e4ed46c1f Mon Sep 17 00:00:00 2001
+From: Slaven Rezic <[email protected]>
+Date: Thu, 21 Aug 2014 19:54:41 +0200
+Subject: [PATCH] don't use defined %hash
+
+This fixes https://rt.cpan.org/Ticket/Display.html?id=98224
+---
+ test.pl | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+ mode change 100644 => 100755 test.pl
+
+diff --git a/test.pl b/test.pl
+old mode 100644
+new mode 100755
+index 92ebcf6..cba6da6
+--- a/test.pl
++++ b/test.pl
+@@ -81,7 +81,7 @@ if ( not defined $pid ) {
+ sleep(1);
+ $TEST_NUM += 2;
+ report_result( not tie %hash3, 'DB_File::Lock', $file1, O_RDWR, 0600,
$DB_HASH, $nonblock_write );
+- report_result( not defined %hash3 ); # double check and satisfy -w
about %hash3
++ report_result( not keys %hash3 ); # double check and satisfy -w about
%hash3
+ $TEST_NUM += 1;
+ report_result( wait() == $pid );
+ report_result( tie %hash3, 'DB_File::Lock', $file1, O_RDWR, 0600,
$DB_HASH, $nonblock_write );
+--
+1.8.3.4
+
