| Subject: | File::Slurp doesn't check the return value of rename call |
Code has: rename( $file_name, $orig_file_name ) if $args->{'atomic'} ;
Should be more like:
if ($args->{'atomic'} and not rename( $file_name, $orig_file_name )) {
@_ = ( $args, "write_file '$file_name' - rename: $!");
goto &_error ;
}