noted that dieing is suboptimal.

This commit is contained in:
hjp 2008-07-15 21:18:16 +00:00
parent 54c4472a16
commit 0b5aa8283b
1 changed files with 4 additions and 0 deletions

View File

@ -597,6 +597,10 @@ sub store_file {
if ($header =~ /^data (.*)/) {
my $f2 = $self->parse($1);
my $backup_filename = "$self->{this_backup}/$f->{name}";
# XXX - should not die unconditionally. At least some errors
# (e.g. "File name too long") are almost certainly specific to
# single files. We should report the error and continue with the
# next file.
open(my $file_bfd, '>:raw', $backup_filename) or die "cannot open backup file $backup_filename: $!";
my $size = $f2->{s};
my $err;