| … | … | ||
|---|---|---|---|
| 594 | $self->{record}->($command) | 594 | $self->{record}->($command) |
| 595 | if $self->{record}; | 595 | if $self->{record}; |
| 596 | 596 | ||
| 597 | $self->logprint ("send: ", $command); | 597 | $self->logprint ("send: ", $command); |
| 598 | $self->send_command ($command); | 598 | $self->send_command ($command); |
| 599 | ::status ($command); | ||
| 600 | } | 599 | } |
| 601 | 600 | ||
| 602 | sub record { | 601 | sub record { |
| 603 | my ($self, $cb) = @_; | 602 | my ($self, $cb) = @_; |
| 604 | 603 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |