| line |
true |
false |
branch |
|
57
|
0 |
0 |
if (not -l _) { } |
|
87
|
1 |
1 |
if ($type == 1) { } |
|
88
|
1 |
0 |
ref $args[-1] eq 'HASH' ? : |
|
98
|
0 |
5 |
unless $dir and -d $dir |
|
101
|
2 |
28 |
if $File::Find::name eq '.' |
|
104
|
2 |
26 |
if (exists $ignore_name{$File::Find::name} or exists $ignore_name{$filename}) |
|
127
|
5 |
0 |
wantarray ? : |
|
132
|
0 |
0 |
unless -d $_ |
|
139
|
0 |
0 |
unless -d $_ |
|
146
|
0 |
0 |
if defined $dir and not $dir =~ /\.bak$/ and not $dir =~ /^\./ and -d $dir and not -l $dir |
|
163
|
0 |
0 |
if (@_ == 3) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
173
|
0 |
0 |
defined $group ? : |
|
174
|
0 |
0 |
unless $chown =~ /^\w+(\:\w+)?$/ |
|
176
|
0 |
0 |
unless -d $dir |
|
183
|
0 |
3 |
ref $verbose ? : |
|
185
|
0 |
3 |
$$args_hr{'verbose'} ? : |
|
187
|
0 |
3 |
if (not -d $base) { } |
|
|
0 |
3 |
elsif (not chdir $base) { } |
|
196
|
1 |
2 |
if (not -d $archive) { } |
|
|
0 |
2 |
elsif ($archive eq '.') { } |
|
207
|
8 |
10 |
if ($file =~ /\.bz2$/ and not -e $file . '.bz2.bz2') |
|
217
|
0 |
2 |
unless (chdir $archive) |
|
221
|
1 |
1 |
if (@files) { } |
|
223
|
2 |
1 |
if -f $file |
|
231
|
0 |
2 |
unless (chdir $pwd) |
|
240
|
2 |
1 |
ref $verbose ? : |
|
251
|
0 |
3 |
if (-e '.cpanelsync') |
|
252
|
0 |
0 |
unless open my $cps_fh, '<', '.cpanelsync' |
|
256
|
0 |
0 |
if $ftype eq 'f' |
|
261
|
0 |
3 |
unless open my $cpsw_fh, '>', '.cpanelsync' |
|
265
|
0 |
34 |
if ($file =~ m[/\.cpanelsync$] or $file =~ m[/\.cpanelsync.lock$]) { } |
|
|
0 |
34 |
elsif ($file =~ /===/) { } |
|
273
|
8 |
26 |
if ($file =~ /\.bz2$/) |
|
276
|
8 |
0 |
if -e $file and -e $tfile |
|
279
|
0 |
26 |
ref $$args_hr{'get_mode_string'} eq 'CODE' ? : |
|
281
|
0 |
26 |
if (-l $file) { } |
|
|
9 |
17 |
elsif (-d $file) { } |
|
289
|
0 |
17 |
if -z $file and $$args_hr{'verbose'} |
|
295
|
0 |
17 |
if (exists $oldmd5s{$file} and $md5sum ne $oldmd5s{$file}) { } |
|
|
8 |
9 |
elsif (-e $file . '.bz2') { } |
|
300
|
0 |
8 |
if ($mtime > (stat _)[9]) |
|
327
|
0 |
0 |
if ref $opts_ref ne 'HASH' |
|
330
|
0 |
0 |
wantarray ? : |
|
335
|
1 |
1 |
ref $verbose ? : |
|
338
|
0 |
2 |
unless ($dir and -d $dir) |
|
342
|
0 |
2 |
if $$args_hr{'verbose'} |
|
345
|
0 |
2 |
unless (chdir $dir) |
|
352
|
0 |
2 |
if (-e '.cpanelsync') |
|
353
|
0 |
0 |
unless open my $cps_fh, '<', '.cpanelsync' |
|
355
|
0 |
0 |
unless $line =~ /^f/ |
|
363
|
0 |
2 |
unless open my $cpsw_fh, '>', '.cpanelsync' |
|
367
|
0 |
10 |
if $file eq './.cpanelsync' or $file eq './.cpanelsync.lock' |
|
369
|
0 |
10 |
if ($file =~ /===/) { } |
|
|
0 |
10 |
elsif ($file =~ /\.bz2$/) { } |
|
378
|
0 |
0 |
if -e $tfile |
|
381
|
5 |
5 |
ref $$args_hr{'get_mode_string'} eq 'CODE' ? : |
|
383
|
0 |
10 |
if (-l $file) { } |
|
|
2 |
8 |
elsif (-d $file) { } |
|
388
|
0 |
2 |
unless print {$cpsw_fh;} "d===$file===$perms\n" |
|
391
|
0 |
8 |
if -z $file and $$args_hr{'verbose'} |
|
397
|
0 |
8 |
if (exists $oldmd5s{$file} and $md5sum ne $oldmd5s{$file}) { } |
|
|
0 |
16 |
elsif (-e $file . '.bz2' and $mtime > (stat _)[9]) { } |
|
403
|
0 |
8 |
unless print {$cpsw_fh;} "f===$file===$perms===$md5sum===$sha512\n" |
|
406
|
0 |
2 |
unless print {$cpsw_fh;} ".\n" |
|
407
|
0 |
2 |
unless close $cpsw_fh |
|
409
|
2 |
0 |
if (open my $lock_fh, '>>', '.cpanelsync.lock') { } |
|
418
|
0 |
2 |
unless (chdir $pwd) |
|
423
|
0 |
2 |
if $$args_hr{'verbose'} |
|
429
|
0 |
1 |
unless ($dir and -d $dir) |
|
435
|
0 |
0 |
if (not -e $cpanelsync or -z _ or not -e $cpanelsync_lock) |
|
441
|
0 |
1 |
unless (chdir $dir) |
|
447
|
0 |
5 |
if $file =~ /\.bz2$/ |
|
448
|
0 |
5 |
if (-e $file . '.bz2') |
|
450
|
0 |
0 |
if ((stat $file)[9] > $archive_mtime) { } |
|
451
|
0 |
0 |
unless unlink $file . '.bz2' |
|
457
|
0 |
5 |
unless (-e $file) |
|
460
|
0 |
5 |
unless bzip_file($file, $verbose) |
|
467
|
0 |
1 |
unless (chdir $pwd) |
|
471
|
0 |
1 |
unless bzip_file($dir . '.tar', $verbose) |
|
479
|
0 |
1 |
unless ($cpanelsync_file and -e $cpanelsync_file) |
|
480
|
0 |
0 |
if (-e '.cpanelsync') { } |
|
488
|
1 |
0 |
if (open my $cpanelsync_fh, '<', $cpanelsync_file) { } |
|
490
|
2 |
4 |
unless $line =~ /^f/ |
|
499
|
1 |
0 |
wantarray ? : |
|
504
|
0 |
6 |
$verbose ? : |
|
505
|
0 |
6 |
unless -f $file |
|
506
|
1 |
5 |
unless ($bzip) |
|
510
|
0 |
6 |
unless -e $file . '.bz2' |
|
515
|
0 |
1 |
if $bzip |
|
517
|
1 |
5 |
if (-x 'File::Spec'->catfile($dir, 'bzip2')) |
|
522
|
0 |
1 |
unless ($bzip) |