noted that dieing is suboptimal.
This commit is contained in:
parent
54c4472a16
commit
0b5aa8283b
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue