| … | |
… | |
| 536 | if (my $filter = $meta->{cfutil_filter}) { |
536 | if (my $filter = $meta->{cfutil_filter}) { |
| 537 | if ($filter eq "yaml2json") { |
537 | if ($filter eq "yaml2json") { |
| 538 | $data = JSON::XS::encode_json YAML::Syck::Load $data; |
538 | $data = JSON::XS::encode_json YAML::Syck::Load $data; |
| 539 | } elsif ($filter eq "json2json") { |
539 | } elsif ($filter eq "json2json") { |
| 540 | $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data); |
540 | $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data); |
|
|
541 | } elsif ($filter eq "perl2json") { |
|
|
542 | $data = eval $data; die if $@; |
|
|
543 | $data = JSON::XS::encode_json $data; |
| 541 | } else { |
544 | } else { |
| 542 | warn "$dir/$file: unknown filter $filter, skipping\n"; |
545 | warn "$dir/$file: unknown filter $filter, skipping\n"; |
| 543 | } |
546 | } |
| 544 | } |
547 | } |
| 545 | |
548 | |
