view release on metacpan or  search on metacpan

lib/Datafile/Hash.pm  view on Meta::CPAN

    close $fh
        or return ( 0, ["ERROR: failed to close '$tmp': $!"] );

    if ( $backup && -f $filename ) {
        rename( $filename, $filename . '.bak' )
            or push @messages,
            "WARNING: backup to ${filename}.bak failed: $!";
    }
    rename( $tmp, $filename )
        or return ( 0, ["ERROR: failed to rename '$tmp' to '$filename': $!"] );
    chmod $prot, $filename;

    push @messages, "- $entry_count entries written to $filename\n"
        if $verbose;
    return ( $entry_count, \@messages );
}

1;

__END__