… | … | ||
---|---|---|---|
170 | 170 | ||
171 | $::CFG->{VERSION} = $::VERSION; | 171 | $::CFG->{VERSION} = $::VERSION; |
172 | 172 | ||
173 | open my $fh, ">:utf8", $file | 173 | open my $fh, ">:utf8", $file |
174 | or return; | 174 | or return; |
175 | print $fh encode_json $::CFG; | 175 | print $fh JSON::XS->new->utf8->pretty->encode ($::CFG); |
176 | } | 176 | } |
177 | 177 | ||
178 | sub http_proxy { | 178 | sub http_proxy { |
179 | my @proxy = win32_proxy_info; | 179 | my @proxy = win32_proxy_info; |
180 | 180 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |