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.

1 files changed, 2 insertions, 1 deletions

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";
 	}
 }