gentoo-overlay/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch

From 247a7ec3a57f2bca977531281f258d5e4ed46c1f Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
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