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