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