net-p2p/eiskaltdcpp-lib/files/patch-eiskaltdcpp-cli__cli-jsonrpc.pl

   1 --- eiskaltdcpp-cli/cli-jsonrpc.pl.orig 2013-08-29 21:25:02.000000000 +0400
   2 +++ eiskaltdcpp-cli/cli-jsonrpc.pl      2014-08-10 16:43:19.942914548 +0400
   3 @@ -35,8 +35,7 @@
   4      unshift @INC,
   5          "$XDG_CONFIG_HOME/eiskaltdc++",
   6          "$HOME/.config/eiskaltdc++/",
   7 -        "/usr/local/share/eiskaltdcpp/cli",
   8 -        "/usr/share/eiskaltdcpp/cli"
   9 +        "/usr/local/etc/eiskaltdcpp"
  10  }
  11
  12  # preparing terminal
  13 @@ -87,15 +86,16 @@
  14  my $res;
  15
  16  # creating and configuring jsonrpc client
  17 -my $client = eval
  18 +my $client;
  19 +eval
  20  {
  21         require JSON::RPC::Client;
  22 -       JSON::RPC::Client->new();
  23 +       $client = JSON::RPC::Client->new();
  24  }
  25  or do
  26  {
  27         require JSON::RPC::Legacy::Client;
  28 -       JSON::RPC::Legacy::Client->new();
  29 +       $client=JSON::RPC::Legacy::Client->new();
  30  };
  31  $client->version("2.0");
  32  $client->ua->timeout(10);