Skip Menu | will be shut down on March 1st, 2021.

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

Report information
The Basics
Id: 3837
Status: new
Priority: 0/
Queue: Text-Autoformat

Owner: Nobody in particular
Requestors: simon [...]

Bug Information
Severity: Normal
Broken in: 1.12
Fixed in: (no value)

Subject: Fails to match some supercite email quoting
Download (untitled) / with headers
text/plain 199b
Text::Autoformat fails to match supercite quotes in the form Show quoted text
Randy1> some quoted text here
Some unquoted text here because it doesn't match digits. The above patch against 1.12 fixes that.
Download af.patch
text/x-diff 465b
--- /usr/local/perl580/lib/site_perl/5.8.0/Text/ 2003-05-28 00:34:38.000000000 +0100 +++ 2003-09-22 15:31:47.000000000 +0100 @@ -82,7 +82,7 @@ # BITS OF A TEXT LINE my $quotechar = qq{[!#%=|:]}; -my $quotechunk = qq{(?:$quotechar(?![a-z])|[a-z]*>+)}; +my $quotechunk = qq{(?:$quotechar(?![a-z0-9])|[a-z0-9]*>+)}; my $quoter = qq{(?:(?i)(?:$quotechunk(?:[ \\t]*$quotechunk)*))}; my $separator = q/(?:[-_]{2,}|[=#*]{3,}|[+~]{4,})/;

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to