| line |
true |
false |
branch |
|
33
|
0 |
8 |
if %opts |
|
78
|
0 |
8 |
if ($ENV{'CALC_NEEDED'}) |
|
82
|
0 |
0 |
if ($fn % 100 == 0) |
|
84
|
0 |
0 |
if ($target->stored_chunk_from_inventory($pc)) |
|
103
|
3 |
5 |
if (@gpg_rcpts) |
|
110
|
8 |
0 |
unless ($$self{'dryrun'}) |
|
115
|
5 |
3 |
unless (@gpg_rcpts) |
|
116
|
5 |
0 |
if (eval {
do {
require IO::Compress::Gzip
}
}) |
|
118
|
0 |
5 |
unless $metafh = 'IO::Compress::Gzip'->new($meta_filename) |
|
133
|
8 |
110 |
unless $cur_file |
|
134
|
28 |
82 |
if ($merge_under and $comp_chunk) { } |
|
139
|
82 |
0 |
if $metafh |
|
141
|
110 |
0 |
if $$self{'savefiles'} |
|
150
|
0 |
85 |
$n_kb_up_need ? : |
|
153
|
0 |
85 |
$n_kb_up_need ? : |
|
167
|
20 |
90 |
if $cur_file->is_dir |
|
168
|
40 |
70 |
if ($gpg_iter) |
|
179
|
20 |
108 |
if ($rec->isa('Brackup::File')) |
|
184
|
90 |
18 |
if ($pchunk->file != $cur_file) |
|
190
|
23 |
85 |
if ($schunk = $target->stored_chunk_from_inventory($pchunk)) |
|
202
|
4 |
81 |
if ($comp_chunk and $schunk = $comp_chunk->stored_chunk_from_dup_internal_raw($pchunk)) |
|
208
|
65 |
16 |
unless ($file_has_shown_status++) |
|
215
|
81 |
0 |
unless ($$self{'dryrun'}) |
|
219
|
33 |
48 |
if (@gpg_rcpts) |
|
234
|
11 |
70 |
if ($merge_under and $chunk_size < $merge_under and $pchunk->is_entire_file) { } |
|
235
|
0 |
11 |
if ($comp_chunk and not $comp_chunk->can_fit($chunk_size)) |
|
245
|
0 |
70 |
unless $target->store_chunk($schunk) |
|
266
|
0 |
81 |
if ($ENV{'BRACKUP_PARANOID'}) |
|
280
|
2 |
6 |
if $comp_chunk |
|
286
|
8 |
0 |
unless ($$self{'dryrun'}) |
|
287
|
0 |
8 |
unless close $metafh |
|
288
|
0 |
8 |
unless rename $meta_filename, $backup_file |
|
295
|
3 |
5 |
if (@gpg_rcpts) { } |
|
298
|
0 |
3 |
if system $$self{'root'}->gpg_path, $$self{'root'}->gpg_args, @recipients, '--trust-model=always', '--batch', '--encrypt', "--output=$encfile", '--yes', $backup_file |
|
307
|
0 |
3 |
unless open $store_fh, $encfile |
|
312
|
0 |
5 |
unless open $store_fh, $backup_file |
|
323
|
3 |
5 |
if ($is_encrypted) |
|
324
|
0 |
3 |
unless close $store_fh |
|
371
|
0 |
8 |
if (my $name = getpwuid $uid) |
|
384
|
0 |
8 |
if (my $name = getgrgid $gid) |
|
402
|
8 |
0 |
if (my $fields = $$self{'target'}->backup_header) |
|
404
|
0 |
16 |
unless $k =~ /^\w+$/ |
|
406
|
0 |
16 |
if not defined $val or $val eq '' |
|
407
|
0 |
16 |
if $val =~ /[\r\n]/ |
|
440
|
0 |
28 |
unless $fh |
|
460
|
190 |
0 |
unless $$self{'verbose'} |
|
469
|
0 |
182 |
if ($$self{'zenityprogress'}) |
|
470
|
0 |
0 |
if (defined $message and length $message > 100) |
|
473
|
0 |
0 |
if defined $message |
|
474
|
0 |
0 |
if defined $percent |