| … | |
… | |
| 81 | $data =~ s/^(\S+)(?:\s|$)// |
81 | $data =~ s/^(\S+)(?:\s|$)// |
| 82 | or return; |
82 | or return; |
| 83 | |
83 | |
| 84 | my $command = "feed_$1"; |
84 | my $command = "feed_$1"; |
| 85 | |
85 | |
| 86 | # warn "$command\n";#d#] |
|
|
| 87 | $self->$command ($data); |
86 | $self->$command ($data); |
| 88 | } |
87 | } |
| 89 | |
88 | |
| 90 | sub feed_version { |
89 | sub feed_version { |
| 91 | my ($self, $version) = @_; |
90 | my ($self, $version) = @_; |
| … | |
… | |
| 530 | } |
529 | } |
| 531 | |
530 | |
| 532 | sub send_queue { |
531 | sub send_queue { |
| 533 | my ($self, $cmd) = @_; |
532 | my ($self, $cmd) = @_; |
| 534 | |
533 | |
| 535 | warn "send_queue<$cmd>$self->{outstanding} <@{ $self->{send_queue} || [] }\n";#d# |
|
|
| 536 | if (defined $cmd) { |
534 | if (defined $cmd) { |
| 537 | push @{ $self->{send_queue} }, $cmd; |
535 | push @{ $self->{send_queue} }, $cmd; |
| 538 | } else { |
536 | } else { |
| 539 | --$self->{outstanding}; |
537 | --$self->{outstanding}; |
| 540 | } |
538 | } |
