--- deliantra/server/utils/cfutil.in	2007/12/27 15:32:41	1.65
+++ deliantra/server/utils/cfutil.in	2007/12/27 15:43:11	1.66
@@ -538,6 +538,9 @@
                $data = JSON::XS::encode_json YAML::Syck::Load $data;
             } elsif ($filter eq "json2json") {
                $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data);
+            } elsif ($filter eq "perl2json") {
+               $data = eval $data; die if $@;
+               $data = JSON::XS::encode_json $data;
             } else {
                warn "$dir/$file: unknown filter $filter, skipping\n";
             }