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