| line |
true |
false |
branch |
|
20
|
7 |
0 |
unless defined $$self{'nocolons'} |
|
23
|
7 |
0 |
if (opendir my $dh, $$self{'path'}) |
|
26
|
0 |
14 |
if ($file =~ /^[0-9a-f]{4}$/) |
|
32
|
0 |
7 |
if ($ENV{'BRACKUP_REARRANGE_FS_TARGET'}) |
|
42
|
0 |
11 |
unless $$self{'path'} = $$header{'BackupPath'} |
|
44
|
11 |
0 |
unless $$self{'nocolons'} = $$header{'NoColons'} |
|
45
|
0 |
11 |
unless (-d $$self{'path'}) |
|
59
|
0 |
8 |
$$self{'nocolons'} ? : |
|
75
|
0 |
0 |
unless opendir my $dh, $root |
|
83
|
0 |
0 |
unless -d "$root/$dir" |
|
84
|
0 |
0 |
if ($dir =~ /^[0-9a-f]{2}$/) |
|
88
|
0 |
0 |
if ($dir =~ /^([0-9a-f]{2})([0-9a-f]{2})$/) |
|
115
|
0 |
0 |
if ($exist_twodir{$leading_two}) { } |
|
|
0 |
0 |
elsif (@four_dirs) { } |
|
125
|
0 |
0 |
unless rename "$root/$four_dir", $temp_dir |
|
134
|
0 |
0 |
if (-e "$root/$four_dir") |
|
138
|
0 |
0 |
if $clean_limit and $n_done >= $clean_limit |
|
146
|
0 |
0 |
unless $rel_dir =~ m[^[^/]] |
|
150
|
0 |
0 |
unless my($hex12, $hex34) = $four_dig =~ /^([0-9a-f]{2})([0-9a-f]{2})$/ |
|
156
|
0 |
0 |
if -d $_ |
|
157
|
0 |
0 |
unless mkdir $_ |
|
163
|
0 |
0 |
if (-f $name) { } |
|
|
0 |
0 |
elsif (-d $name) { } |
|
165
|
0 |
0 |
unless rename $name, "$dest_dir/$basefile" |
|
168
|
0 |
0 |
if $_ eq '.' or $_ eq '..' |
|
175
|
0 |
0 |
if (not rmdir $dir and -d $dir) |
|
191
|
0 |
77 |
if $self->nocolons |
|
193
|
0 |
308 |
unless $dig =~ s/^([0-9a-f]{4})// |
|
206
|
77 |
196 |
unless ($$self{'_no_four_hex_dirs_in_root'}) |
|
208
|
0 |
77 |
if -e $old |
|
236
|
0 |
184 |
unless open my $fh, $path |
|
247
|
0 |
0 |
if ($exist_size and $exist_size == $blen) |
|
262
|
0 |
79 |
if ($exist_size and $exist_size == $blen) |
|
268
|
79 |
0 |
unless (-d $dir) |
|
269
|
0 |
79 |
unless (eval {
do {
File::Path::mkpath($dir)
}
}) |
|
270
|
0 |
0 |
if ($!{'EMLINK'}) { } |
|
279
|
0 |
0 |
unless (eval {
do {
File::Path::mkpath($dir)
}
}) |
|
289
|
0 |
79 |
unless open my $fh, '>', $partial |
|
292
|
0 |
79 |
unless close $fh |
|
295
|
0 |
79 |
unless rename $partial, $path |
|
299
|
0 |
79 |
unless (defined $actual_size) |
|
302
|
0 |
79 |
unless ($actual_size == $expected_size) |
|
322
|
78 |
34 |
unless /\.chunk$/ |
|
325
|
0 |
34 |
if $self->nocolons |
|
336
|
7 |
1 |
unless (-d $dir) |
|
337
|
0 |
7 |
unless mkdir $dir |
|
341
|
0 |
8 |
unless open my $out_fh, '>', $out_filepath |
|
344
|
0 |
8 |
unless close $out_fh |
|
353
|
0 |
5 |
unless -d $dir |
|
355
|
0 |
5 |
unless opendir my $dh, $dir |
|
360
|
10 |
7 |
unless $fn =~ s/\.brackup$// |
|
377
|
0 |
2 |
unless -e $file |
|
381
|
0 |
2 |
unless open my $in, $file |
|
382
|
0 |
2 |
unless open my $out, '>', $output_file |
|
388
|
0 |
2 |
unless $outv == $rv |
|
390
|
0 |
2 |
unless defined $rv |
|
400
|
0 |
1 |
unless -e $file |