view release on metacpan or  search on metacpan

lib/File/RoundRobin.pm  view on Meta::CPAN

    return ($fh,$size + 0,$start_point + 0,$headers_size + 0,$read_only);
}


=head2 update_headers

Update the start point in the headers section after a write command

=cut
sub update_headers {
    my $self = shift;

    my $fh = $self->{_fh_};

    CORE::sysseek($fh,0, 0);

    my $headers = '';
    #version
    $headers .= "1\x00";
    #file size