[libdb-file-lock-perl] 07/10: Add patch from CPAN RT to fix "defined(%hash)" error.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libdb-file-lock-perl.

commit b84c442a51af1fbfbbae24644664116ff5e2381b
Author: gregor herrmann <gregoa at debian.org>
Date:   Thu Jun 18 17:43:39 2015 +0200

    Add patch from CPAN RT to fix "defined(%hash)" error.
    
    Closes: #789147
---
 debian/patches/defined-hash.patch | 24 ++++++++++++++++++++++++
 debian/patches/series             |  1 +
 2 files changed, 25 insertions(+)

diff --git a/debian/patches/defined-hash.patch b/debian/patches/defined-hash.patch
new file mode 100644
index 0000000..0abab4c
--- /dev/null
+++ b/debian/patches/defined-hash.patch
@@ -0,0 +1,24 @@
+From 247a7ec3a57f2bca977531281f258d5e4ed46c1f Mon Sep 17 00:00:00 2001
+From: Slaven Rezic <slaven at rezic.de>
+Date: Thu, 21 Aug 2014 19:54:41 +0200
+Subject: [PATCH] don't use defined %hash
+
+Bugs: https://rt.cpan.org/Ticket/Display.html?id=98224
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=98224
+Bugs-Debian: https://bugs.debian.org/789147
+---
+ test.pl | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+ mode change 100644 => 100755 test.pl
+
+--- a/test.pl
++++ b/test.pl
+@@ -81,7 +81,7 @@
+ 	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 );
diff --git a/debian/patches/series b/debian/patches/series
index 524ea3f..55003b6 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 tie_argument_handling.patch
+defined-hash.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdb-file-lock-perl.git