| … | |
… | |
| 160 | or return; |
160 | or return; |
| 161 | |
161 | |
| 162 | local $/; |
162 | local $/; |
| 163 | my $CFG = <$fh>; |
163 | my $CFG = <$fh>; |
| 164 | |
164 | |
| 165 | if ($CFG =~ /^---/) { ## TODO compatibility cruft, remove |
|
|
| 166 | require YAML; |
|
|
| 167 | utf8::decode $CFG; |
|
|
| 168 | $::CFG = YAML::Load ($CFG); |
|
|
| 169 | } elsif ($CFG =~ /^\{/) { |
|
|
| 170 | $::CFG = decode_json $CFG; |
165 | $::CFG = decode_json $CFG; |
| 171 | } else { |
|
|
| 172 | $::CFG = eval $CFG; ## todo comaptibility cruft |
|
|
| 173 | } |
|
|
| 174 | } |
166 | } |
| 175 | |
167 | |
| 176 | sub write_cfg { |
168 | sub write_cfg { |
| 177 | my ($file) = @_; |
169 | my ($file) = @_; |
| 178 | |
170 | |
