--- deliantra/Deliantra-Client/DC.pm	2008/01/19 04:55:42	1.173
+++ deliantra/Deliantra-Client/DC.pm	2008/07/07 08:02:17	1.183
@@ -17,7 +17,7 @@
 use Carp ();
 
 BEGIN {
-   $VERSION = '0.9965';
+   $VERSION = '0.9973';
 
    use XSLoader;
    XSLoader::load "Deliantra::Client", $VERSION;
@@ -166,13 +166,13 @@
 }
 
 sub write_cfg {
-   my ($file) = @_;
+   my $file = "$Deliantra::VARDIR/client.cf";
 
    $::CFG->{VERSION} = $::VERSION;
 
    open my $fh, ">:utf8", $file
       or return;
-   print $fh encode_json $::CFG;
+   print $fh JSON::XS->new->utf8->pretty->encode ($::CFG);
 }
 
 sub http_proxy {
@@ -225,7 +225,6 @@
    } else {
       fcntl $fh, &Fcntl::F_SETFL, $nb ? &Fcntl::O_NONBLOCK : 0;
    }
-
 }
 
 package DC::Layout;