| … | |
… | |
| 560 | $data = pack "na*", length $data, $data; |
560 | $data = pack "na*", length $data, $data; |
| 561 | |
561 | |
| 562 | syswrite $self->{fh}, $data; |
562 | syswrite $self->{fh}, $data; |
| 563 | } |
563 | } |
| 564 | |
564 | |
|
|
565 | sub send_command { |
|
|
566 | my ($self, $command) = @_; |
|
|
567 | |
|
|
568 | utf8::encode $command; |
|
|
569 | $self->send ("command $command"); |
|
|
570 | } |
|
|
571 | |
| 565 | sub send_queue { |
572 | sub send_queue { |
| 566 | my ($self, $cmd) = @_; |
573 | my ($self, $cmd) = @_; |
| 567 | |
574 | |
| 568 | if (defined $cmd) { |
575 | if (defined $cmd) { |
| 569 | push @{ $self->{send_queue} }, $cmd; |
576 | push @{ $self->{send_queue} }, $cmd; |
