comirror: Also fix utf8 handling

1 files changed, 1 insertions, 0 deletions

diff --git a/bin/comirror b/bin/comirror
index 106e7c3..378c171 100755
--- a/bin/comirror
+++ b/bin/comirror
@@ -96,6 +96,7 @@ sub file_to_hash {
 	}
 
 	open(my $fh, '<', $file) or die("Cannot read $file: $!\n");
+	binmode($fh, ':utf8');
 	while(my $line = <$fh>) {
 		$line =~ / ^ (?<key> \S+ ) [[:space:]]+ (?<value> .*) $ /x or next;
 		$return{$+{key}} = $+{value};