Error in answering on fork && rcvr_pause msg types
if( $type eq 'FORK' or $type eq 'BLOCK_COMPLETED' )
{
$last_block = $data->{'data'}{'block_num'};
}
if( ($type eq 'BLOCK_COMPLETED' and $last_block - $last_ack >= $ack) or$type eq 'RCVR_PAUSE' )
{
send_ack($conn);
}
Should be N-1 for fork, and for pause
if($last_block - $last_ack) { send_ack($conn); }