| … | … | ||
|---|---|---|---|
| 105 | push @{$self->{record}}, $command; | 105 | push @{$self->{record}}, $command; |
| 106 | } | 106 | } |
| 107 | 107 | ||
| 108 | $self->logprint ("send: ", $command); | 108 | $self->logprint ("send: ", $command); |
| 109 | $self->send_command ($command); | 109 | $self->send_command ($command); |
| 110 | ::status $command; | 110 | ::status ($command); |
| 111 | } | 111 | } |
| 112 | 112 | ||
| 113 | sub start_record { | 113 | sub start_record { |
| 114 | my ($self) = @_; | 114 | my ($self) = @_; |
| 115 | 115 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |