[libtext-header-perl] 12/15: Add back the fix for #217791 as a quilt patch.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libtext-header-perl.

commit 8b763956ff84dd4faae54ee06263aa159a344031
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon Sep 28 23:17:07 2015 +0200

    Add back the fix for #217791 as a quilt patch.
---
 debian/patches/series                   |  1 +
 debian/patches/uninitialzed-value.patch | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..89baab2
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+uninitialzed-value.patch
diff --git a/debian/patches/uninitialzed-value.patch b/debian/patches/uninitialzed-value.patch
new file mode 100644
index 0000000..54d599e
--- /dev/null
+++ b/debian/patches/uninitialzed-value.patch
@@ -0,0 +1,20 @@
+Description: fix warning 'Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Text/Header.pm line 68.'
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/217791
+Author: Nicolas Bertolissio <bertol at debian.org>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-09-28
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=107396
+Bug: https://rt.cpan.org/Ticket/Display.html?id=107396
+
+--- a/Header.pm
++++ b/Header.pm
+@@ -65,7 +65,7 @@
+     while (my $line = $lines[$i]) {
+ 
+         # join multiple indented lines per RFC 822
+-        $line .= $lines[$i] while ($lines[++$i] =~ /^\s+/);
++        $line .= $lines[$i] while (defined($lines[++$i]) && ($lines[$i] =~ /^\s+/));
+ 
+         # split the two and change the tag to lowercase 
+         my($tag, $val) = $line =~ m/([-\w]+)\s*:\s*(.*)/s;

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