line |
true |
false |
branch |
38
|
0 |
23 |
if @_ |
73
|
2 |
0 |
unless -d $tree_dir |
92
|
0 |
2 |
if $self->{'v'} |
95
|
0 |
2 |
$^O eq 'VMS' ? : |
97
|
0 |
2 |
$source_dir eq $ddir ? : |
100
|
0 |
2 |
if (not $ok and -d $source_dir) |
102
|
0 |
0 |
unless (chdir $source_dir) |
113
|
0 |
0 |
if $self->{'v'} > 1 |
116
|
0 |
0 |
unless chdir $cwd |
120
|
0 |
2 |
unless $ok |
121
|
0 |
2 |
if $self->{'v'} |
142
|
7 |
9 |
if (open DOTPATCH, "< $dot_patch") |
149
|
7 |
0 |
if ($patch_level) |
167
|
9 |
0 |
if (open PATCHLEVEL_H, "< $patchlevel_h") |
171
|
1336 |
9 |
unless $declaration_seen and /^\s+,"(?:DEVEL|MAINT)(\d+)|(RC\d+)"/ |
173
|
0 |
9 |
if ($patch_level =~ /^RC/) { } |
185
|
9 |
0 |
if ($patch_level and not $patch_level =~ /-RC\d+$/) { } |
186
|
9 |
0 |
if (open DOTPATCH, "> $dot_patch") |
225
|
0 |
1 |
unless ($gitbin) |
240
|
0 |
1 |
$out eq 'true' ? : |
276
|
5 |
0 |
'File::Spec'->file_name_is_absolute($clean_dir) ? : |
286
|
10 |
30 |
unless -f $_ |
293
|
10 |
31 |
unless -f $_ |
295
|
30 |
1 |
if exists $orig_dir{$file} |
297
|
0 |
1 |
-e $_ ? : |
309
|
15 |
0 |
unless $^O eq "VMS" |
326
|
14 |
0 |
unless $^O eq "VMS" |
330
|
0 |
0 |
unless $logical |