| line |
true |
false |
branch |
|
42
|
0 |
0 |
if ($opts{'chdir'}) |
|
65
|
0 |
0 |
unless *$self->{'tar_input'} |
|
66
|
0 |
0 |
if $file =~ m[^\Q$cwd\E/(.+)$] |
|
67
|
0 |
0 |
unless print {*$self->{'tar_input'};} "$file\000" |
|
74
|
0 |
0 |
if (*$self->{'chdir'}) |
|
77
|
0 |
0 |
if not -l $testfile and -d _ |
|
85
|
0 |
0 |
if (*$self->{'chdir'}) |
|
88
|
0 |
0 |
if -l $testfile or not -d _ |
|
96
|
0 |
0 |
unless close *$self->{'tar_input'} |
|
114
|
0 |
0 |
if ($opts{'in_place'}) { } |
|
119
|
0 |
0 |
unless (-e $dest) |
|
121
|
0 |
0 |
unless mkdir $dest |
|
146
|
0 |
0 |
unless $opts{'no_fixperms'} |
|
149
|
0 |
0 |
if $opts{'in_place'} |
|
152
|
0 |
0 |
unless opendir my $dir_dh, $tmp |
|
153
|
0 |
0 |
if $_ ne '.' |
|
157
|
0 |
0 |
if (scalar @entries == 1 and not -l "$tmp/$entries[0]" and -d _) { } |
|
158
|
0 |
0 |
unless rename "$tmp/$entries[0]", $dest |
|
162
|
0 |
0 |
unless rename $tmp, $dest |