view release on metacpan or  search on metacpan

lib/Datafile/Array.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,
        "- renamed $tmp to $filename\n",
        "- $record_count data records written to $filename\n"
        if $verbose;
    return ( $record_count, \@messages );
}

1;