From c8cf970e335f870c5f14f2646b3fb6e70a85344f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 11 Dec 2020 00:46:47 +0100
Subject: mht: Decode UTF-8 input

ash: par: not found
But this seems to be needed in order for UTF-8 input to work with
HTML::Entities.
---
 mht | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mht b/mht
index adb8c36..39c7cff 100755
--- a/mht
+++ b/mht
@@ -3,6 +3,7 @@
 use v5.12;
 use warnings;
 
+use Encode qw/decode_utf8/;
 use HTML::Entities qw/encode_entities/;
 use Text::ParseWords qw/quotewords/;
 
@@ -144,7 +145,7 @@ while (<>) {
 		$empty .= "\n";
 	} else {
 		print $empty; $empty = '';
-		print encode_entities($_) . "\n";
+		print encode_entities(decode_utf8($_)) . "\n";
 	}
 }
 
-- 
cgit v1.2.3