| line |
true |
false |
branch |
|
37
|
13 |
0 |
unless defined $$self{'tar'} |
|
38
|
0 |
13 |
unless defined $$self{'tar'} |
|
40
|
0 |
13 |
unless (defined $$self{'tar'}) |
|
44
|
0 |
13 |
if (defined $$self{'ramdisk'}) { } |
|
46
|
0 |
0 |
unless ($rc) |
|
51
|
2 |
11 |
$$self{'tmpdir'} ? : |
|
56
|
0 |
13 |
unless mkpath([$$self{'tardir'}], 0, 493) |
|
79
|
9 |
3 |
unless (File::Spec::Functions::file_name_is_absolute($tarfile)) |
|
83
|
0 |
12 |
unless chdir $$self{'tardir'} |
|
87
|
3 |
9 |
if $self->is_compressed($tarfile) |
|
97
|
1 |
11 |
unless ($success) |
|
99
|
0 |
1 |
unless chdir $cwd |
|
103
|
11 |
0 |
if $err |
|
105
|
0 |
11 |
unless chdir $cwd |
|
115
|
3 |
9 |
if $tarfile =~ /\.t?gz$/i |
|
118
|
0 |
9 |
unless open FILE, "<$tarfile" |
|
120
|
0 |
9 |
unless my $read = sysread(FILE, my $two, 2, 0) |
|
122
|
0 |
9 |
if ord substr($two, 0, 1) eq 31 and ord substr($two, 1, 1) eq 139 |
|
136
|
12 |
1 |
if (-e $real_path) |
|
151
|
2 |
8 |
if ($opts) |
|
152
|
0 |
2 |
if (not ref $opts or ref $opts ne 'HASH') |
|
157
|
1 |
9 |
if defined $$opts{'perm'} |
|
158
|
0 |
10 |
if defined $$opts{'uid'} |
|
159
|
0 |
10 |
if defined $$opts{'gid'} |
|
160
|
1 |
9 |
if defined $$opts{'binmode'} |
|
165
|
5 |
5 |
unless (-d $target_dir) |
|
166
|
1 |
4 |
if (ref $path_or_stringref) { } |
|
173
|
2 |
8 |
if (ref $path_or_stringref) { } |
|
|
5 |
3 |
elsif (-d $path_or_stringref) { } |
|
174
|
0 |
2 |
unless open FILE, ">$target" |
|
175
|
1 |
1 |
if (defined $binmode) |
|
182
|
5 |
0 |
unless -d $target |
|
184
|
0 |
3 |
unless copy($path_or_stringref, $target) |
|
188
|
0 |
10 |
if (defined $uid) |
|
189
|
0 |
0 |
unless chown $uid, -1, $target |
|
193
|
0 |
10 |
if (defined $gid) |
|
194
|
0 |
0 |
unless chown -1, $gid, $target |
|
198
|
1 |
9 |
if (defined $perm) |
|
199
|
0 |
1 |
unless chmod $perm, $target |
|
203
|
7 |
2 |
unless (defined $uid or defined $gid or defined $perm or ref $path_or_stringref) |
|
207
|
0 |
7 |
unless perm_cp($path_or_stringref, $target) |
|
229
|
0 |
7 |
unless my(@stats) = (stat $filename)[2, 4, 5] |
|
240
|
0 |
7 |
unless chown $$perms[1], $$perms[2], $filename |
|
242
|
0 |
7 |
unless chmod $$perms[0] & 4095, $filename |
|
253
|
0 |
0 |
unless rmtree($target) |
|
278
|
0 |
6 |
unless open FILE, ">$list_file" |
|
281
|
0 |
6 |
unless chdir $$self{'tardir'} |
|
286
|
0 |
17 |
-l $_ ? : |
|
|
14 |
17 |
-d $_ ? : |
|
293
|
0 |
6 |
unless chdir $cwd |
|
308
|
0 |
25 |
unless open FILE, "<$list_file" |
|
313
|
6 |
31 |
unless defined $line |
|
317
|
12 |
19 |
if $type eq 'd' and not $$self{'dirs'} |
|
331
|
25 |
25 |
if (defined $new_offset) |
|
332
|
0 |
25 |
unless open FILE, ">$offset_file" |
|
337
|
0 |
50 |
unless open FILE, "<$offset_file" |
|
350
|
0 |
4 |
unless chdir $$self{'tardir'} |
|
352
|
0 |
4 |
unless (File::Spec::Functions::file_name_is_absolute($tarfile)) |
|
357
|
1 |
3 |
if $compress |
|
359
|
0 |
4 |
unless opendir DIR, '.' |
|
365
|
0 |
4 |
if (@top_entries > $$self{'max_cmd_line_args'}) { } |
|
367
|
0 |
0 |
unless open FLIST, ">$filelist_file" |
|
384
|
1 |
3 |
unless ($success) |
|
386
|
0 |
1 |
unless chdir $cwd |
|
390
|
3 |
0 |
if $err |
|
392
|
0 |
3 |
unless chdir $cwd |
|
402
|
0 |
13 |
if defined $$self{'ramdisk'} |
|
404
|
13 |
0 |
if defined $$self{'objdir'} |
|
405
|
13 |
0 |
if defined $$self{'tmpdir'} |
|
425
|
13 |
65 |
if -x $full |
|
436
|
0 |
1 |
unless open PIPE, "$$self{'tar'} --version |" |
|
453
|
0 |
0 |
unless $$self{'mount'} |
|
454
|
0 |
0 |
unless $$self{'umount'} |
|
457
|
0 |
0 |
unless (defined $$self{$_}) |
|
465
|
0 |
0 |
unless defined $$self{'ramdisk'}{'size'} |
|
468
|
0 |
0 |
unless (defined $$self{'ramdisk'}{'tmpdir'}) |
|
479
|
0 |
0 |
if ($rc) |
|
495
|
0 |
0 |
unless exists $$self{'ramdisk'}{'mounted'} |
|
503
|
0 |
0 |
if ($rc) |