[libdbix-recordset-perl] 01/11: Add patch 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 libdbix-recordset-perl.

commit 8762139e05e50ce0840ed58dd9a0af10c2db9421
Author: gregor herrmann <gregoa at debian.org>
Date:   Thu Jun 18 18:02:17 2015 +0200

    Add patch to fix "defined(%hash)" error.
    
    Closes: #789157
---
 debian/patches/defined-hash.patch | 19 +++++++++++++++++++
 debian/patches/series             |  1 +
 2 files changed, 20 insertions(+)

diff --git a/debian/patches/defined-hash.patch b/debian/patches/defined-hash.patch
new file mode 100644
index 0000000..cb80faf
--- /dev/null
+++ b/debian/patches/defined-hash.patch
@@ -0,0 +1,19 @@
+Description: "defined(%hash)" is an error in Perl 5.22
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/789157
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-06-18
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=105335
+Bug: https://rt.cpan.org/Ticket/Display.html?id=105335
+
+--- a/Recordset.pm
++++ b/Recordset.pm
+@@ -652,7 +652,7 @@
+         ${$objname} -> Disconnect () ;
+         }
+ 
+-    if (defined (%{$objname}))
++    if (%{$objname})
+         {
+         my $obj = tied (%{$objname}) ;
+         $obj -> {'*Recordset'} = undef if ($obj) ;
diff --git a/debian/patches/series b/debian/patches/series
index 0406102..79b73f8 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -4,3 +4,4 @@ Recordset.pm.patch
 test.pl.patch
 spelling.patch
 pod.patch
+defined-hash.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdbix-recordset-perl.git