| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless opendir $dh, $fullname
|
|
40
|
0 |
0 |
unless $dir =~ m[/[0-9a-f]{2}$]
|
|
41
|
0 |
0 |
unless (rmdir $dir)
|
|
50
|
0 |
0 |
unless @found
|
|
60
|
0 |
0 |
unless (open $fh, ">> $filename")
|
|
64
|
0 |
0 |
unless (flock $fh, 6)
|
|
81
|
0 |
0 |
unless ($yc->upload('--nostash', 1, $filename))
|
|
85
|
0 |
0 |
unless (unlink $filename)
|
|
95
|
0 |
0 |
unless @found
|
|
97
|
0 |
0 |
unless my $fh = _lock($file)
|
|
106
|
0 |
0 |
unless @this == 1
|
|
112
|
0 |
0 |
unless $dir =~ /^[0-9a-f]{2}$/
|
|
113
|
0 |
0 |
if grep {$dir =~ /^$_/i;} @buckets
|
|
116
|
0 |
0 |
if (@wrong == 0)
|
|
136
|
0 |
0 |
unless &GetOptions('help|h', sub {
pod2usage({'-verbose', 2});
}
, 'version', sub {
say 'Yars version ', $VERSION // 'dev';
exit 1;
}
)
|
|
139
|
0 |
0 |
unless @disks
|
|
141
|
0 |
0 |
unless -d $disk
|