- my ($touser,$requestid,$replyto,$command,@args)=@_;
-
- my $data={command=>$command, replyto=>$replyto, args => \@args };
- $data->{requestid} = $requestid if defined $requestid;
-
- if (exists $commands{$touser}) {
- my $temp = thaw $commands{$touser};
- push $temp, $data;
- $commands{$touser} = freeze $temp
- } else {
- $commands{$touser} = freeze [$data]
- }
-
- if (exists $waiting_requests{$touser}) {
- $waiting_requests{$touser}->continue;
- delete $waiting_requests{$touser}
- }
+ my ($touser,$requestid,$replyto,$command,@args)=@_;
+
+ my $data={command=>$command, replyto=>$replyto, args => \@args };
+ $data->{requestid} = $requestid if defined $requestid;
+
+ if (exists $commands{$touser}) {
+ my $temp = thaw $commands{$touser};
+ push @$temp, $data;
+ $commands{$touser} = freeze $temp
+ } else {
+ $commands{$touser} = freeze [$data]
+ }
+
+ if (exists $waiting_requests{$touser}) {
+ $waiting_requests{$touser}->continue;
+ delete $waiting_requests{$touser}
+ }