… | … | ||
---|---|---|---|
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 |