print map { s/^(>*From )/>$1/; $_."\n" } @lines[ 1 .. $#lines ];
if ($record->{inner_file}) {
my $fh = $record->{fh};
- print $_ while (<$fh>);
+ local $/;
+ while (<$fh>) {
+ s/^(>*From )/>$1/gm;
+ print $_;
+ }
}
}
exit 0;
* Use Text::Xslate instead of Text::Template; Text::Xslate is significantly
faster.
* Add support for a Done: psuedoheader (closes: #950133)
+ * Fix unescaped From (closes: #983847)
-- Don Armstrong <don@debian.org> Fri, 09 Mar 2018 11:17:10 -0800
# -*- mode: cperl;-*-
-use Test::More tests => 18;
+use Test::More tests => 19;
use warnings;
use strict;
Package: foo
Severity: normal
-This is a silly bug
+This is a silly bug which contains an unescaped From line.
+
+From line
EOF
'Subject of bug maibox is right');
ok($mech->content() =~ qr/^From /m,
'Starts with a From appropriately');
+ok($mech->content() =~ qr/^(>F|=46)rom line/m,
+ 'From line escaped appropriately');
+print STDERR $mech->content();
$mech->get_ok('http://localhost:'.$port.'/?bug=1;mboxmaint=yes',
'Page received ok');