line |
true |
false |
branch |
37
|
1 |
0 |
if ($backup_file =~ /^$file.~(\d+)~$/) |
43
|
1 |
2 |
if (@version_numbers) |
58
|
1 |
2 |
if ($max_version_number) |
65
|
0 |
3 |
if (-f $next_file) |
77
|
2 |
0 |
unless ($suffix) |
102
|
0 |
0 |
if ($max_version_number) { } |
117
|
1 |
5 |
if (not -f $file) { } |
123
|
0 |
5 |
if (not $version_control or $version_control eq 'existing' or $version_control eq 'nil') |
128
|
3 |
2 |
if ($version_control eq 'numbered' or $version_control eq 't') { } |
|
2 |
0 |
elsif ($version_control eq 'simple' or $version_control eq 'never') { } |
146
|
0 |
3 |
unless (-f $file) |
150
|
0 |
3 |
if (-f $backup_file) |
151
|
0 |
0 |
unless unlink $backup_file |
153
|
0 |
3 |
unless rename $file, $backup_file |