--- deliantra/Deliantra-Client/DC.pm	2007/11/14 23:50:29	1.158
+++ deliantra/Deliantra-Client/DC.pm	2007/12/05 10:51:53	1.159
@@ -30,7 +30,7 @@
 use File::Path ();
 use Storable (); # finally
 use Fcntl ();
-use JSON::XS qw(to_json from_json);
+use JSON::XS qw(encode_json decode_json);
 
 =item guard { BLOCK }
 
@@ -167,7 +167,7 @@
       utf8::decode $CFG;
       $::CFG = YAML::Load ($CFG);
    } elsif ($CFG =~ /^\{/) {
-      $::CFG = from_json $CFG;
+      $::CFG = decode_json $CFG;
    } else {
       $::CFG = eval $CFG; ## todo comaptibility cruft
    }
@@ -180,7 +180,7 @@
 
    open my $fh, ">:utf8", $file
       or return;
-   print $fh to_json $::CFG;
+   print $fh encode_json $::CFG;
 }
 
 sub http_proxy {