--- deliantra/Deliantra-Client/DC.pm	2007/01/05 17:37:39	1.138
+++ deliantra/Deliantra-Client/DC.pm	2007/04/01 15:08:14	1.139
@@ -126,7 +126,7 @@
          $line =~ s/\s+$//;
          utf8::decode $line;
          if ($line =~ /^\x{e877}json_msg (.*)$/s) {
-            $cb->(from_json $1);
+            $cb->(JSON::XS->new->allow_nonref->decode ($1));
          } else {
             ::message ({
                markup => "background($pid): " . CFPlus::asxml $line,
@@ -139,7 +139,7 @@
 sub background_msg {
    my ($msg) = @_;
 
-   $msg = "\x{e877}json_msg " . to_json $msg;
+   $msg = "\x{e877}json_msg " . JSON::XS->new->allow_nonref->encode ($msg);
    $msg =~ s/\n//g;
    utf8::encode $msg;
    print $msg, "\n";