Allow Unicode characters in config.ini. #199
This commit is contained in:
parent
74c71b4ef2
commit
419b94e587
1 changed files with 2 additions and 0 deletions
|
@ -338,6 +338,7 @@ sub save {
|
||||||
my ($file) = @_;
|
my ($file) = @_;
|
||||||
|
|
||||||
open my $fh, '>', $file;
|
open my $fh, '>', $file;
|
||||||
|
binmode $fh, ':utf8';
|
||||||
foreach my $opt (sort keys %$Options) {
|
foreach my $opt (sort keys %$Options) {
|
||||||
my $value = get($opt);
|
my $value = get($opt);
|
||||||
$value = $Options->{$opt}{serialize}->($value) if $Options->{$opt}{serialize};
|
$value = $Options->{$opt}{serialize}->($value) if $Options->{$opt}{serialize};
|
||||||
|
@ -352,6 +353,7 @@ sub load {
|
||||||
|
|
||||||
local $/ = "\n";
|
local $/ = "\n";
|
||||||
open my $fh, '<', $file;
|
open my $fh, '<', $file;
|
||||||
|
binmode $fh, ':utf8';
|
||||||
while (<$fh>) {
|
while (<$fh>) {
|
||||||
s/\R+$//;
|
s/\R+$//;
|
||||||
next if /^\s+/;
|
next if /^\s+/;
|
||||||
|
|
Loading…
Reference in a new issue