--- deliantra/Deliantra/Deliantra.pm	2007/03/11 00:34:12	1.98
+++ deliantra/Deliantra/Deliantra.pm	2007/03/23 18:25:24	1.99
@@ -21,17 +21,7 @@
    read_pak read_arch *ARCH TILESIZE $TILE *FACE editor_archs arch_extents
 );
 
-use JSON::Syck (); #TODO#d# replace by JSON::PC when it becomes available == working
-
-sub from_json($) {
-   $JSON::Syck::ImplicitUnicode = 1;
-   JSON::Syck::Load $_[0]
-}
-
-sub to_json($) {
-   $JSON::Syck::ImplicitUnicode = 0;
-   JSON::Syck::Dump $_[0]
-}
+use JSON::XS qw(from_json to_json);
 
 our $LIB = $ENV{CROSSFIRE_LIBDIR};