davemp/encode-json.patch

   1 --- lib/Davemp.pm       2007-04-03 20:14:45.000000000 -0400
   2 +++ lib/Davemp.pm.new   2011-03-09 13:56:01.300754335 -0500
   3 @@ -68,7 +68,7 @@
   4              my $vars = $cgi->Vars;
   5              map { $vars->{$_} =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; } keys %$vars;
   6              my $result = $self->sendCommand($command, $vars);
   7 -            my $jsonstring = to_json($result);
   8 +            my $jsonstring = encode_json($result);
   9
  10              print "HTTP/1.1 200 OK\n";
  11              #print "Content-type: application/json\n";
  12 @@ -199,4 +199,4 @@
  13      return $self->_davemp->{'config'};
  14  }
  15
  16 -1;
  17 \ No newline at end of file
  18 +1;