| line |
true |
false |
branch |
|
30
|
3 |
1 |
-f $_[0] ? :
|
|
38
|
0 |
3 |
unless -e $filename
|
|
44
|
3 |
0 |
if ($PRESERVE_FILE_ATTRS)
|
|
51
|
3 |
0 |
if $Dev::Util::Backup::REAL_USER_ID == 0 or $Dev::Util::Backup::REAL_USER_ID == $stat[4]
|
|
64
|
0 |
0 |
if not defined $level or $level < 2 or $level > 9
|
|
66
|
0 |
1 |
unless -d $dir
|
|
100
|
1 |
3 |
$fh ? :
|
|
104
|
1 |
3 |
-d $filename ? :
|
|
108
|
0 |
4 |
if ($BACKUPDIR ne "")
|
|
113
|
0 |
0 |
$BACKUPDIR =~ m[^/]u ? :
|
|
119
|
0 |
0 |
unless -d $budir or &Dev::Util::Backup::mkdir($budir, 488)
|
|
142
|
2 |
2 |
if ($count)
|
|
146
|
0 |
2 |
$count - 1 > 0 ? :
|
|
150
|
2 |
2 |
if ($lastbackup ne "")
|
|
154
|
1 |
1 |
unless _file_diff($input, "$lastbackup$ext")
|
|
158
|
1 |
2 |
if ref $input
|
|
159
|
0 |
3 |
unless copy($input, "$newfile$ext", 4096)
|
|
173
|
0 |
4 |
$ref ? :
|
|
|
0 |
4 |
unless $fh = $ref ? $_ : "IO::File"->new($_, "r")
|
|
186
|
1 |
1 |
unless $files[0]{'size'} == $files[1]{'size'}
|
|
195
|
0 |
1 |
if $n1 != $n2 or $buf1 ne $buf2
|
|
200
|
0 |
2 |
if ($_->{'ref'}) { }
|