Fix comirror-setup unicode handling & add test for it

1 files changed, 3 insertions, 0 deletions

diff --git a/bin/comirror-setup b/bin/comirror-setup
index 03bf0a5..879c32c 100755
--- a/bin/comirror-setup
+++ b/bin/comirror-setup
@@ -29,9 +29,12 @@ my @opts = (
 
 local $| = 1;
 
+binmode(STDOUT, ':utf8');
+
 sub hash_to_file {
 	my ($hash, $file) = @_;
 	open(my $fh, '>', $file) or die("Can't open $file for writing: $!\n");
+	binmode($fh, ':utf8');
 	while (my ($key, $value) = each(%{$hash})) {
 		$key =~ tr/-/_/;
 		print {$fh} "$key\t$value\n";