[libcarp-datum-perl] 01/13: 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 libcarp-datum-perl.

commit c55bc99c3b7ab2987ed5726c01ff4d54d525348a
Author: gregor herrmann <gregoa at debian.org>
Date:   Wed Jun 17 17:49:08 2015 +0200

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

diff --git a/debian/patches/definded-hash.patch b/debian/patches/definded-hash.patch
new file mode 100644
index 0000000..8331ae0
--- /dev/null
+++ b/debian/patches/definded-hash.patch
@@ -0,0 +1,41 @@
+Description: "defined %hash" is an error in Perl 5.22
+Origin: vendor
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-06-17
+Bug-Debian: https://bugs.debian.org/789066
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=105296
+Bug: https://rt.cpan.org/Ticket/Display.html?id=105296
+
+--- a/Datum.pm
++++ b/Datum.pm
+@@ -315,7 +315,7 @@
+ 		TRC_NOTICE()	=> [\&logsay, undef],
+ 		TRC_INFO()		=> [\&logtrc, 'info'],
+ 		TRC_DEBUG()		=> [\&logtrc, 'debug'],
+-	) unless defined %Carp::Datum::logmap;
++	) unless %Carp::Datum::logmap;
+ 
+ 	my $entry = $Carp::Datum::logmap{$level};
+ 
+--- a/Datum/Parser.pm
++++ b/Datum/Parser.pm
+@@ -1102,7 +1102,7 @@
+                 'usr2'         => $USR2,
+                 'warning'      => $WARNING,
+                 'yes'          => $YES
+-               ) unless defined %Keyword;
++               ) unless %Keyword;
+     return undef unless /^(\w+)/ && exists $Keyword{$1};
+     my $word = $1;
+     s/^\w+//;
+--- a/Datum/Parser.y
++++ b/Datum/Parser.y
+@@ -581,7 +581,7 @@
+                 'usr2'         => $USR2,
+                 'warning'      => $WARNING,
+                 'yes'          => $YES
+-               ) unless defined %Keyword;
++               ) unless %Keyword;
+     return undef unless /^(\w+)/ && exists $Keyword{$1};
+     my $word = $1;
+     s/^\w+//;
diff --git a/debian/patches/series b/debian/patches/series
index 6d90e8b..bd6c72f 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 pod-fixes
+definded-hash.patch

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