| … | … | ||
|---|---|---|---|
| 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 |