… | … | ||
---|---|---|---|
17 | my $last_nok_size = $max_size; | 17 | my $last_nok_size = $max_size; |
18 | my $last_ok_size = 0; | 18 | my $last_ok_size = 0; |
19 | my $delta = 10; | 19 | my $delta = 10; |
20 | 20 | ||
21 | $cl->reg_cb ( | 21 | $cl->reg_cb ( |
22 | connected => sub { | 22 | session_ready => sub { |
23 | my ($cl, $acc) = @_; | 23 | my ($cl, $acc) = @_; |
24 | my $con = $acc->connection; | 24 | my $con = $acc->connection; |
25 | 25 | ||
26 | $con->{max_write_length} = 4096; | 26 | $con->{max_write_length} = 4096; |
27 | 27 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |