Commit Diff
Commit:
5b01d758b6e1c615bec81c44ae1cfa4080e52d54
From:
Omar Polo <op@omarpolo.com>
Date:
Thu Aug 25 10:47:18 2022 UTC
Message:
mexp: handle the body line by line
commit - 2064ca3f06e4f311b5f69d917a36936014957525
commit + 5b01d758b6e1c615bec81c44ae1cfa4080e52d54
blob - d322f095e407448221436abf5946c2229c6a6801
blob + 8f23ebb26e600e335cc798b02c74bde1ec473a53
--- mexp
+++ mexp
@@ -75,17 +75,13 @@ while (<>) {
print $fh "<p>Download raw <a href='/text/$mid.txt'>body</a>.</p>";
print $fh "</header>";
- my $body = do {
- local $/ = undef;
- <$mshow>;
- };
-
print $fh "<pre>";
- print $fh san($body // "");
+ while (<$mshow>) {
+ print $text $_;
+ print $fh san($_);
+ }
print $fh "</pre>";
- print $text $body;
-
# generate the listing for the exported parts
my $part_seen = 0;
while (<$parts>) {
Omar Polo