… | |
… | |
15 | package CFPlus; |
15 | package CFPlus; |
16 | |
16 | |
17 | use Carp (); |
17 | use Carp (); |
18 | |
18 | |
19 | BEGIN { |
19 | BEGIN { |
20 | $VERSION = '0.9960'; |
20 | $VERSION = '0.9961'; |
21 | |
21 | |
22 | use XSLoader; |
22 | use XSLoader; |
23 | XSLoader::load "CFPlus", $VERSION; |
23 | XSLoader::load "CFPlus", $VERSION; |
24 | } |
24 | } |
25 | |
25 | |
… | |
… | |
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 | |