summaryrefslogtreecommitdiff
path: root/Tanja.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Tanja.pm')
-rw-r--r--Tanja.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Tanja.pm b/Tanja.pm
index 670c6cd..181f513 100644
--- a/Tanja.pm
+++ b/Tanja.pm
@@ -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;