line |
true |
false |
branch |
240
|
19 |
1 |
unless (defined $self->{'tar'}) |
242
|
0 |
0 |
if ($self->_is_openbsd and $self->{'tar_read_options'}) |
246
|
0 |
19 |
if ($self->{'osname'} eq 'MSWin32') { } |
253
|
0 |
19 |
unless (defined $self->{'tar'}) |
257
|
0 |
0 |
if ($self->{'osname'} eq 'MSWin32') { } |
269
|
0 |
20 |
if (defined $self->{'ramdisk'}) { } |
271
|
0 |
0 |
unless ($rc) |
278
|
2 |
18 |
$self->{'tmpdir'} ? : |
283
|
0 |
20 |
unless mkpath([$self->{'tardir'}], 0, 493) |
285
|
0 |
20 |
if $logger->is_debug |
325
|
0 |
0 |
if ($compress_opt) |
334
|
0 |
0 |
if $self->{'tar_read_options'} ne '' |
336
|
0 |
0 |
if scalar @{$self->{'tar_gnu_read_options'};} > 0 |
346
|
10 |
4 |
unless (File::Spec::Functions::file_name_is_absolute($tarfile)) |
351
|
0 |
14 |
unless chdir $self->{'tardir'} |
358
|
0 |
14 |
if ($self->_is_openbsd) { } |
371
|
0 |
14 |
if $logger->is_debug |
374
|
1 |
13 |
unless ($error_code) |
376
|
0 |
1 |
unless chdir $cwd |
380
|
0 |
13 |
if $logger->is_warn and $err |
381
|
0 |
13 |
unless chdir $cwd |
382
|
0 |
13 |
$error_code == 0 ? : |
399
|
0 |
7 |
unless chdir $self->{'tardir'} |
400
|
0 |
7 |
unless open my $fh, '>', $list_file |
402
|
0 |
7 |
if ($logger->is_debug) |
410
|
0 |
18 |
-l $_ ? : |
|
17 |
18 |
-d $_ ? : |
416
|
0 |
35 |
if $logger->is_debug |
421
|
0 |
7 |
if $logger->is_debug |
423
|
0 |
7 |
unless chdir $cwd |
454
|
21 |
3 |
unless $skip |
459
|
0 |
24 |
if ($self->_is_openbsd) { } |
|
1 |
46 |
elsif ($self->{'tar'} =~ /$bsd_regex/i and $self->{'tar_exit_code'} == 1) { } |
474
|
1 |
23 |
unless $self->{'tar_exit_code'} == 0 |
475
|
22 |
2 |
if $self->{'version_info'} =~ /GNU/ |
484
|
0 |
0 |
unless defined $tar_path |
486
|
0 |
0 |
if ($tar_path =~ /\s/) |
538
|
5 |
14 |
if $tarfile =~ /$self->{'gzip_regex'}/xi |
539
|
2 |
12 |
if $tarfile =~ /$self->{'bzip2_regex'}/xi |
542
|
0 |
12 |
unless open my $fh, '<', $tarfile |
544
|
0 |
12 |
unless my $read = sysread($fh, my $two, 2, 0) |
548
|
1 |
11 |
if ord substr($two, 0, 1) == 31 and ord substr($two, 1, 1) == 139 |
571
|
14 |
3 |
if (-e $real_path) { } |
572
|
0 |
14 |
if $logger->is_debug |
576
|
0 |
3 |
if $logger->is_warn |
610
|
2 |
14 |
if ($opts) |
611
|
0 |
2 |
unless (ref $opts and ref $opts eq 'HASH') |
617
|
1 |
15 |
if defined $opts->{'perm'} |
618
|
0 |
16 |
if defined $opts->{'uid'} |
619
|
0 |
16 |
if defined $opts->{'gid'} |
620
|
1 |
15 |
if defined $opts->{'binmode'} |
625
|
9 |
7 |
unless (-d $target_dir) |
626
|
1 |
8 |
if (ref $path_or_stringref) { } |
634
|
2 |
14 |
if (ref $path_or_stringref) { } |
|
9 |
5 |
elsif (-d $path_or_stringref) { } |
635
|
0 |
2 |
unless open my $fh, '>', $target |
636
|
1 |
1 |
if (defined $binmode) |
645
|
9 |
0 |
unless -d $target |
648
|
0 |
5 |
unless copy($path_or_stringref, $target) |
652
|
0 |
16 |
if (defined $uid) |
653
|
0 |
0 |
unless chown $uid, -1, $target |
657
|
0 |
16 |
if (defined $gid) |
658
|
0 |
0 |
unless chown -1, $gid, $target |
662
|
1 |
15 |
if (defined $perm) |
663
|
0 |
1 |
unless chmod $perm, $target |
667
|
13 |
2 |
unless (defined $uid or defined $gid or defined $perm or ref $path_or_stringref) |
672
|
0 |
13 |
unless perm_cp($path_or_stringref, $target) |
719
|
0 |
13 |
unless my(@stats) = (stat $filename)[2, 4, 5] |
751
|
0 |
13 |
unless chmod $perms->[0] & 511, $filename |
768
|
0 |
0 |
unless rmtree($target) |
823
|
0 |
27 |
unless open my $fh, '<', $list_file |
830
|
35 |
7 |
if (defined $line) { } |
836
|
15 |
20 |
if $type eq 'd' and not $self->{'dirs'} |
851
|
27 |
27 |
if (defined $new_offset) |
852
|
0 |
27 |
unless open my $fh, '>', $offset_file |
857
|
0 |
54 |
unless open my $fh, '<', $offset_file |
880
|
0 |
5 |
unless chdir $self->{'tardir'} |
882
|
0 |
5 |
unless (File::Spec::Functions::file_name_is_absolute($tarfile)) |
887
|
2 |
3 |
if $compress |
889
|
0 |
5 |
unless opendir my $dir, '.' |
900
|
0 |
5 |
if (@top_entries > $self->{'max_cmd_line_args'}) { } |
902
|
0 |
0 |
unless open my $fh, '>', $filelist_file |
916
|
0 |
5 |
if $logger->is_debug |
919
|
1 |
4 |
unless ($rc) |
921
|
0 |
1 |
unless chdir $cwd |
925
|
0 |
4 |
if $err |
926
|
0 |
4 |
unless chdir $cwd |
938
|
20 |
13 |
if (length $_ <= 2 and $_ eq '.' || $_ eq '..') { } |
941
|
10 |
10 |
if ($found < 1) { } |
968
|
0 |
20 |
if defined $self->{'ramdisk'} |
969
|
20 |
0 |
if defined $self->{'objdir'} |
970
|
20 |
0 |
if defined $self->{'tmpdir'} |
1037
|
0 |
0 |
unless $self->{'mount'} |
1038
|
0 |
0 |
unless $self->{'umount'} |
1041
|
0 |
0 |
unless (defined $self->{$_}) |
1049
|
0 |
0 |
unless defined $self->{'ramdisk'}{'size'} |
1051
|
0 |
0 |
unless (defined $self->{'ramdisk'}{'tmpdir'}) |
1063
|
0 |
0 |
if ($rc) |
1065
|
0 |
0 |
if ($logger->is_info) |
1089
|
0 |
0 |
unless exists $self->{'ramdisk'}{'mounted'} |
1091
|
0 |
0 |
if $logger->is_info |
1094
|
0 |
0 |
if ($rc) |