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