| … | … | ||
|---|---|---|---|
| 9 | 9 | ||
| 10 | sub start_transfer { | 10 | sub start_transfer { |
| 11 | my $self = shift; | 11 | my $self = shift; |
| 12 | 12 | ||
| 13 | my $trans = bless [ $self, $Coro::current ], transfer::; | 13 | my $trans = bless [ $self, $Coro::current ], transfer::; |
| 14 | print "$self $trans $trans->[0] <<\n";#d# | ||
| 15 | Scalar::Util::weaken($trans->[0]); | 14 | Scalar::Util::weaken($trans->[0]); |
| 16 | 15 | ||
| 17 | push @{$self->{wait}}, $trans; | 16 | push @{$self->{wait}}, $trans; |
| 18 | 17 | ||
| 19 | if (--$self->{conns} >= 0) { | 18 | if (--$self->{conns} >= 0) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |