[libtext-quoted-perl] 01/06: Add patch to fix warning about negative repeat count.

[gregor herrmann]

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

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

commit 73029ff252c6085fae1534ddff2cefb10dde1ef9
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Dec 8 18:45:07 2017 +0100

    Add patch to fix warning about negative repeat count.
    
    Thanks: Stefan Bühler for the bug report and the patch.
    Closes: #883870
---
 debian/patches/fix-negative-repeat-count.patch | 19 +++++++++++++++++++
 debian/patches/series                          |  1 +
 2 files changed, 20 insertions(+)

diff --git a/debian/patches/fix-negative-repeat-count.patch b/debian/patches/fix-negative-repeat-count.patch
new file mode 100644
index 0000000..b066820
--- /dev/null
+++ b/debian/patches/fix-negative-repeat-count.patch
@@ -0,0 +1,19 @@
+Description: Fix "Negative repeat count does nothing"
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=111986
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=111986
+Bug-Debian: https://bugs.debian.org/883870
+Author: Stefan Bühler <source at stbuehler.de>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-12-08
+
+--- a/lib/Text/Quoted.pm
++++ b/lib/Text/Quoted.pm
+@@ -241,6 +241,7 @@
+             else {
+                 my $extraspace =
+                   length( $line->{raw} ) - length( $line->{text} ) - $firstfrom;
++                $extraspace = 0 if $extraspace < 0;
+                 $paras[-1]->{text} .= "\n" . q{ } x $extraspace . $line->{text};
+                 $paras[-1]->{raw} .= "\n" . $line->{raw};
+             }
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..4bde5e5
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+fix-negative-repeat-count.patch

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