- $tochan->nopings(3); # pump up the timer
- push @{$tochan->pingtime}, $t;
- shift @{$tochan->pingtime} if @{$tochan->pingtime} > 6;
+ $tochan->{nopings} = 2; # pump up the timer
+ push @{$tochan->{pingtime}}, $t;
+ shift @{$tochan->{pingtime}} if @{$tochan->{pingtime}} > 6;