Bug#826714: jessie-pu: package biber/1.9-3+deb8u1

[Dominic Hargreaves <dom@earth.li>]

Package: release.debian.org
Severity: normal
Tags: jessie
User: release.debian.org@packages.debian.org
Usertags: pu

As per #826667 the last perl update unfortunately broke biber too
(at least it causes a test failure; the actual cause is a bit unclear,
but the fix is taken straight from the upstream perl 5.22 fixes).

Please find attached a proposed patch; let me know if it's okay to upload.

This was discovered by automated rebuild testing of all packages depending
on perl:
<http://perl.debian.net:3000/distribution#jessie>
this testing is not yet completed, but no other failures have been
found yet.

Thanks,
Dominic.

diff -Nru biber-1.9/debian/changelog biber-1.9/debian/changelog
--- biber-1.9/debian/changelog	2014-12-24 23:45:26.000000000 +0000
+++ biber-1.9/debian/changelog	2016-06-07 16:56:37.000000000 +0100
@@ -1,3 +1,10 @@
+biber (1.9-3+deb8u1) UNRELEASED; urgency=medium
+
+  * Non-maintainer upload.
+  * Fix breakage triggered by point release update of perl
+
+ -- Dominic Hargreaves <dom@earth.li>  Tue, 07 Jun 2016 16:56:10 +0100
+
 biber (1.9-3) unstable; urgency=medium
 
   * cherry pick upstream fix for hyphenation fixes (Closes: #773872)
diff -Nru biber-1.9/debian/patches/fix-5.20.3 biber-1.9/debian/patches/fix-5.20.3
--- biber-1.9/debian/patches/fix-5.20.3	1970-01-01 01:00:00.000000000 +0100
+++ biber-1.9/debian/patches/fix-5.20.3	2016-06-07 16:55:50.000000000 +0100
@@ -0,0 +1,14 @@
+diff -urN biber-1.9/lib/Biber/Input/file/bibtex.pm biber-1.9.new/lib/Biber/Input/file/bibtex.pm
+--- biber-1.9/lib/Biber/Input/file/bibtex.pm	2016-06-07 16:55:35.000000000 +0100
++++ biber-1.9.new/lib/Biber/Input/file/bibtex.pm	2016-06-07 16:55:13.402781198 +0100
+@@ -1214,8 +1214,8 @@
+ 
+ sub _hack_month {
+   my $in_month = shift;
+-  if ($in_month =~ m/\A\s*((?:jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec).*)\s*\z/i) {
+-    return $months{lc(Unicode::GCString->new($1)->substr(0,3)->as_string)};
++  if (my ($m) = $in_month =~ m/\A\s*((?:jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec).*)\s*\z/i) {
++    return $months{lc(Unicode::GCString->new($m)->substr(0,3)->as_string)};
+   }
+   else {
+     return $in_month;
diff -Nru biber-1.9/debian/patches/series biber-1.9/debian/patches/series
--- biber-1.9/debian/patches/series	2014-12-24 23:45:26.000000000 +0000
+++ biber-1.9/debian/patches/series	2016-06-07 16:56:02.000000000 +0100
@@ -5,3 +5,4 @@
 fix-slurp-unknown
 fix-perl-warning
 biber-fix-hyphenation
+fix-5.20.3