Commit Diff

Commit:
5b01d758b6e1c615bec81c44ae1cfa4080e52d54
From:
Omar Polo <op@omarpolo.com>
Date:
Message:
mexp: handle the body line by line
Actions:
Patch | Tree
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>) {