diff options
Diffstat (limited to 'bin/comirror-setup')
| -rwxr-xr-x | bin/comirror-setup | 3 | 
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"; | 
