Skip Menu |

This queue is for tickets about the Text-Quoted CPAN distribution.

Report information
The Basics
Id: 111986
Status: resolved
Priority: 0/
Queue: Text-Quoted

People
Owner: Nobody in particular
Requestors: jbrandt [...] bestpractical.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 2.09
Fixed in: 2.10



Subject: Negative repeat count does nothing
Seeing these warnings when running RT under perl 5.22.1: Negative repeat count does nothing at /opt/rt4/perl/lib/site_perl/5.22.1/Text/Quoted.pm line 244. Which appears to be from this new warning: http://perldoc.perl.org/perldiag.html#Negative-repeat-count-does-nothing
Here's a patch we received via the Debian bug tracker.
Subject: fix-negative-repeat-count.patch
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@stbuehler.de> Reviewed-by: gregor herrmann <gregoa@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}; }
Merged in 2.10, thanks! -sunnavy