diff options
Diffstat (limited to 'Tanja.pm')
-rw-r--r-- | Tanja.pm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -303,11 +303,11 @@ sub _recv { # tuple } elsif($cmd eq 'tuple') { $s->{serv}->send($arg[1], !$arg[0] ? undef : sub { - $s->{hdl}->push_write('Tanja::Link::JSON' => $_[0]?'response':'close', $arg[0]+0, $_[0]?$_[0]:()); + $s->{hdl}->push_write('Tanja::Link::JSON' => $_[0]?'reply':'close', $arg[0]+0, $_[0]?$_[0]:()); }, $s); - # response - } elsif($cmd eq 'response') { + # reply + } elsif($cmd eq 'reply') { $s->{ret}{$arg[0]}->reply($arg[1]) if $s->{ret}{$arg[0]}; # close @@ -332,7 +332,7 @@ package Tanja::Link::JSON; use strict; use warnings; -my @num_to_cmd = ('', qw|register unregister tuple response close|); +my @num_to_cmd = ('', qw|register unregister tuple reply close|); my %cmd_to_num = map +($num_to_cmd[$_], $_), keys @num_to_cmd; my $json; |