| line |
true |
false |
branch |
|
204
|
0 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
212
|
0 |
1 |
unless ($configfile) |
|
214
|
0 |
0 |
unless -e $_ |
|
240
|
0 |
1 |
if ($self->config(-'debug')) |
|
245
|
0 |
0 |
$debugtag ? : |
|
248
|
0 |
0 |
if ($debuglog) { } |
|
249
|
0 |
0 |
unless open $sym, ">> $debuglog" |
|
264
|
1 |
0 |
if $ary |
|
272
|
0 |
0 |
unless defined $n |
|
273
|
0 |
0 |
if (defined $dur) |
|
275
|
0 |
0 |
if (/^s|sec|secs|second|seconds$/i) { } |
|
|
0 |
0 |
elsif (/^m|min|mins|minute|minutes$/i) { } |
|
|
0 |
0 |
elsif (/^h|hour|hours$/i) { } |
|
|
0 |
0 |
elsif (/^d|day|days$/i) { } |
|
|
0 |
0 |
elsif (/^w|week|weeks$/i) { } |
|
314
|
0 |
0 |
if (ref $self) { } |
|
322
|
0 |
0 |
if @args |
|
325
|
0 |
0 |
if ($self) |
|
347
|
0 |
0 |
if $self |
|
398
|
1 |
150 |
if (defined $value) |
|
405
|
3 |
147 |
if (defined $$sc{$parm}) { } |
|
406
|
0 |
3 |
if (ref $$sc{$parm} eq 'ARRAY') { } |
|
420
|
111 |
39 |
if ($num == 0) { } |
|
|
37 |
2 |
elsif (@vals == 1) { } |
|
|
2 |
0 |
elsif (wantarray) { } |
|
433
|
37 |
111 |
if ($Boolean{$parm}) { } |
|
|
0 |
202 |
elsif ($None{$parm} and lc $val eq 'none') { } |
|
450
|
0 |
4 |
if (ref $main_opts eq 'ARRAY') |
|
460
|
0 |
4 |
if ($rsync_sh and lc $rsync_sh ne 'none' and lc $rsync_sh ne 'rsync') |
|
464
|
4 |
0 |
if ($self->config(-'chargefile') and not $self->config(-'RsyncVerbose')) |
|
465
|
4 |
0 |
unless $main_opts =~ /--stats\b/ |
|
470
|
0 |
4 |
if $compress |
|
474
|
0 |
4 |
if $verbose |
|
496
|
0 |
12 |
unless $file |
|
498
|
2 |
10 |
unless ($$fha{$file}) |
|
500
|
0 |
2 |
unless open $sym, ">> $file" |
|
525
|
0 |
0 |
if @args |
|
526
|
0 |
0 |
unless $long |
|
531
|
0 |
0 |
unless my $logfile = $self->config(-'logfile') |
|
567
|
52 |
0 |
unless $fh = $$self{'_debug'} |
|
610
|
0 |
3 |
if $$self{'_debug'} |
|
612
|
3 |
0 |
wantarray ? : |
|
671
|
4 |
2 |
if (not ref $_) { } |
|
673
|
4 |
0 |
unless $literal |
|
679
|
2 |
0 |
unless $literal |
|
687
|
0 |
4 |
if $$self{'_debug'} |
|
689
|
3 |
1 |
wantarray ? : |
|
703
|
0 |
5 |
unless (my $cfg = $$self{'_cfg'} = $$self{'_client_cfg'}) |
|
710
|
5 |
0 |
unless $literal |
|
712
|
1 |
4 |
unless ($dhash) |
|
717
|
0 |
5 |
unless my $d = $$dhash{$directory} |
|
720
|
2 |
3 |
if (ref $d) |
|
724
|
5 |
0 |
unless $literal |
|
730
|
0 |
4 |
if ($self->config(-'ManyFiles')) { } |
|
753
|
0 |
4 |
if ($maxbackups == 1 and $rotate_all == 0) |
|
763
|
0 |
4 |
if (-d "$dir.$count") |
|
765
|
0 |
0 |
unless system("$rm -rf $dir.$count") == 0 |
|
776
|
4 |
0 |
if ($rotate_all) { } |
|
779
|
8 |
13 |
if (-d "$dir.$count") |
|
781
|
0 |
8 |
unless system("$mv $dir.$count $dir.$countplus") == 0 |
|
792
|
0 |
0 |
if ($maxbackups == 1 and $rotate_all == 0) |
|
802
|
0 |
0 |
if (-d "$dir.TMP") |
|
805
|
0 |
0 |
unless system("$rm -rf $dir.TMP") == 0 |
|
813
|
0 |
0 |
if (-d "$dir.$count") |
|
814
|
0 |
0 |
if (not $rotate_all) { } |
|
816
|
0 |
0 |
unless system("$mv $dir.$count $dir.TMP") == 0 |
|
821
|
0 |
0 |
unless system("$rm -rf $dir.$count") == 0 |
|
835
|
0 |
0 |
if (-d "$dir.$count") |
|
837
|
0 |
0 |
unless system("$mv $dir.$count $dir.$countplus") == 0 |
|
843
|
0 |
0 |
if (not $rotate_all) |
|
844
|
0 |
0 |
if (-d "$dir.TMP") { } |
|
|
0 |
0 |
elsif (-d "$dir.1") { } |
|
846
|
0 |
0 |
unless system("$mv $dir.TMP $dir.0") == 0 |
|
852
|
0 |
0 |
unless system("$cp -al $dir.1 $dir.0") == 0 |
|
878
|
0 |
4 |
unless ($dir =~ m[^/]) |
|
879
|
0 |
0 |
if $rsh eq 'rsync' |
|
891
|
0 |
4 |
if ($hr_backup == 1) |
|
896
|
0 |
4 |
unless ($hr_backup) |
|
903
|
0 |
4 |
if (@destlist = $self->config(-'DestinationList') and $destlist[0] and lc $destlist[0] ne 'none') { } |
|
910
|
0 |
0 |
unless $pdir =~ m[^/] |
|
922
|
0 |
0 |
if (not defined $min) { } |
|
|
0 |
0 |
elsif ($min > $dest{$_}) { } |
|
939
|
0 |
4 |
unless ($dest) |
|
958
|
4 |
0 |
if ($hr_backup > 0) |
|
960
|
8 |
17 |
if -d "$backupdir.$x" |
|
961
|
0 |
17 |
if $x >= $hr_backup |
|
963
|
50 |
0 |
unless -d "$backupdir.$y" |
|
965
|
0 |
0 |
unless rename "$backupdir.$y", "$backupdir.$x" |
|
991
|
0 |
4 |
if (not $self->config(-'force') and $self->config(-'Before') || $self->config(-'After')) |
|
1003
|
0 |
0 |
unless $$_ |
|
1005
|
0 |
0 |
if ($$_ =~ s/([ap])m?$//i) |
|
1007
|
0 |
0 |
if $mod =~ /p/ |
|
1009
|
0 |
0 |
if ($$_ =~ /:/) { } |
|
1016
|
0 |
0 |
if ($$_ =~ /^(\d\d?)(\d\d)$/) { } |
|
|
0 |
0 |
elsif ($$_ =~ /^(\d\d?)$/) { } |
|
1040
|
0 |
0 |
if ($after) |
|
1041
|
0 |
0 |
unless $current ge $after |
|
1043
|
0 |
0 |
if ($before) |
|
1044
|
0 |
0 |
unless $current lt $before |
|
1047
|
0 |
0 |
if ($stop) |
|
1049
|
0 |
0 |
if ($before) |
|
1052
|
0 |
0 |
if ($after) |
|
1053
|
0 |
0 |
if $constr |
|
1056
|
0 |
0 |
$rsh eq 'rsync' ? : |
|
1070
|
0 |
4 |
if (not $self->config(-'force') and $self->config(-'AutoTime')) |
|
1073
|
0 |
0 |
if (my $min_exceed = $self->config(-'MustExceed')) |
|
1075
|
0 |
0 |
if ($min_exceed > $must_exceed) |
|
1082
|
0 |
0 |
unless ($interval > $must_exceed) |
|
1084
|
0 |
0 |
$rsh eq 'rsync' ? : |
|
1093
|
0 |
4 |
if (my $pc = $self->config(-'pingcommand')) |
|
1094
|
0 |
0 |
if (ref $pc eq 'ARRAY') |
|
1102
|
0 |
0 |
if ($?) |
|
1120
|
0 |
4 |
if ($backup_date != $yday) |
|
1121
|
0 |
0 |
if ($hr_backup) { } |
|
1136
|
0 |
0 |
if ($yday - $backup_date_weekly > 7 or $yday - $backup_date_weekly < 0 and $yday + 365 - $backup_date_weekly > 7) |
|
1151
|
0 |
0 |
if ($yday - $backup_date_monthly > 30 or $yday - $backup_date_monthly < 0 and $yday + 365 - $backup_date_monthly > 30) |
|
1163
|
0 |
4 |
unless (-d $prefix) |
|
1164
|
0 |
0 |
if (-e $prefix) { } |
|
|
0 |
0 |
elsif ($self->config(-'CreateDir')) { } |
|
1168
|
0 |
0 |
unless File::Path::mkpath($prefix) |
|
1178
|
4 |
0 |
if (@excl) |
|
1181
|
4 |
0 |
unless $_ |
|
1197
|
4 |
0 |
if ($self->config(-'RetainPermissions')) |
|
1199
|
0 |
4 |
if ($many_files) { } |
|
1220
|
0 |
4 |
if (not $many_files || $retain and -d "$backupdir.0") |
|
1222
|
0 |
0 |
unless system("$cp -al $backupdir.0 $backupdir.1") == 0 |
|
1227
|
4 |
0 |
if ($retain and -d "$backupdir.1") |
|
1237
|
4 |
0 |
if (not $rsh or $rsh eq 'none') { } |
|
|
0 |
0 |
elsif ($rsh eq 'rsync' and $host =~ /:\d+$/) { } |
|
|
0 |
0 |
elsif ($rsh eq 'rsync') { } |
|
1251
|
1 |
3 |
unless ($rsync_log) |
|
1274
|
0 |
4 |
unless open BCOMMAND, "$command_line |" |
|
1278
|
0 |
68 |
unless $clog |
|
1279
|
0 |
68 |
if (/
^ wrote \s+ (\d+) \s+ bytes
\s+ read \s+ (\d+) \s+ bytes
\s+ (.+) \s+ bytes.sec \s* $
/xi) |
|
1291
|
68 |
0 |
unless $finished |
|
1292
|
0 |
0 |
if (/^total size is (\d+)/) |
|
1299
|
0 |
4 |
unless (close BCOMMAND) |
|
1301
|
0 |
0 |
unless ($self->config(-'IgnoreVanished') and $stat == 24) |
|
1312
|
4 |
0 |
if ($clog) |
|
1339
|
0 |
4 |
if ($do_dailies) |
|
1344
|
0 |
0 |
if (-d "$yesterdays_hourly") |
|
1345
|
0 |
0 |
unless system("$cp -al $yesterdays_hourly $backupdir.0") == 0 |
|
1351
|
0 |
4 |
if ($do_weeklies) |
|
1354
|
0 |
0 |
if (-d "$yesterdays_hourly") |
|
1355
|
0 |
0 |
unless system("$cp -al $yesterdays_hourly $backupdir.0") == 0 |
|
1361
|
0 |
4 |
if ($do_monthlies) |
|
1364
|
0 |
0 |
if (-d "$yesterdays_hourly") |
|
1365
|
0 |
0 |
unless system("$cp -al $yesterdays_hourly $backupdir.0") == 0 |