| line |
true |
false |
branch |
|
120
|
1 |
3 |
unless my $read = -r 'MANIFEST' && maniread() |
|
121
|
1 |
3 |
if $manimiss |
|
123
|
0 |
4 |
if $Is_VMS_nodot |
|
124
|
3 |
1 |
unless $manimiss |
|
125
|
0 |
4 |
unless open my $fh, ">", $MANIFEST |
|
131
|
0 |
1 |
$Is_VMS_mode ? : |
|
|
1 |
3 |
if $manimiss |
|
135
|
12 |
26 |
if (&$skip($file)) |
|
138
|
10 |
2 |
if $Verbose and exists $read->{$file} |
|
141
|
26 |
0 |
if ($Verbose) |
|
142
|
17 |
9 |
unless exists $read->{$file} |
|
146
|
0 |
26 |
if $tabs < 1 |
|
147
|
23 |
3 |
unless $text |
|
148
|
2 |
24 |
if ($file =~ /\s/) |
|
161
|
0 |
128 |
if ($Is_VMS) |
|
164
|
0 |
0 |
if ($Is_VMS_lc) |
|
166
|
0 |
0 |
if $filename =~ /^MANIFEST(\.SKIP)?$/i |
|
188
|
0 |
128 |
if $Debug |
|
189
|
31 |
97 |
if -d $_ |
|
269
|
14 |
24 |
if (&$matches($file)) |
|
270
|
14 |
0 |
unless $Quiet |
|
288
|
0 |
3 |
if $Debug |
|
289
|
0 |
3 |
if ($dosnames) |
|
294
|
0 |
3 |
unless (exists $found->{$file}) |
|
295
|
0 |
0 |
unless $Quiet |
|
312
|
1 |
8 |
if &$skip($file) |
|
313
|
0 |
8 |
if $Debug |
|
314
|
2 |
6 |
unless (exists $read->{$file}) |
|
315
|
1 |
1 |
unless $Quiet |
|
341
|
1 |
35 |
unless (open $fh, "<", $mfile) |
|
348
|
0 |
195 |
if /^\s*#/ |
|
354
|
37 |
158 |
if (($file, $comment) = /^'((?:\\[\\']|.+)+)'\s*(.*)/) { } |
|
360
|
0 |
195 |
unless $file |
|
362
|
0 |
195 |
if ($Is_VMS_mode) |
|
366
|
0 |
0 |
if ($Is_VMS_nodot) |
|
369
|
0 |
0 |
if (@pieces > 2) |
|
372
|
0 |
0 |
if $Debug |
|
375
|
0 |
0 |
if ($Is_VMS_lc) |
|
377
|
0 |
0 |
if $file =~ /^MANIFEST(\.SKIP)?$/i |
|
406
|
0 |
521 |
if (defined $1) |
|
417
|
10 |
6 |
if -f $mfile |
|
420
|
0 |
16 |
unless open $fh, "<", $mfile or open $fh, "<", $DEFAULT_MSKIP |
|
422
|
3 |
512 |
if (/^#!include_default\s*$/) |
|
423
|
3 |
0 |
if (my(@default) = _include_mskip_file()) |
|
424
|
0 |
3 |
if $Debug |
|
429
|
192 |
320 |
unless my $filename = _process_skipline($_) |
|
432
|
0 |
16 |
unless scalar @skip > 0 |
|
434
|
0 |
16 |
$Is_VMS_mode ? : |
|
444
|
0 |
1 |
$^O eq 'MSWin32' && "$]" < 5.016 ? : |
|
459
|
0 |
10 |
unless (open $fh, "<", $mfile) |
|
464
|
2 |
37 |
if (/^#!include\s+(.*)\s*$/) |
|
467
|
2 |
0 |
if (my(@external) = _include_mskip_file($external_file)) |
|
469
|
0 |
2 |
if $Debug |
|
477
|
9 |
1 |
unless $flag |
|
479
|
0 |
1 |
if $Is_VMS_nodot |
|
481
|
0 |
1 |
if $Debug |
|
482
|
0 |
1 |
unless (open $fh, ">", $mfile) |
|
495
|
0 |
5 |
unless (-f $mskip) |
|
501
|
0 |
5 |
unless (open $fh, "<", $mskip) |
|
535
|
0 |
2 |
unless defined $target |
|
540
|
0 |
2 |
if $Is_VMS_mode |
|
541
|
0 |
2 |
$Is_VMS ? : |
|
543
|
0 |
3 |
if $Is_VMS_mode |
|
544
|
0 |
3 |
if ($file =~ m[/]) |
|
546
|
0 |
0 |
if $Is_VMS_mode |
|
547
|
0 |
0 |
$Is_VMS ? : |
|
555
|
1 |
2 |
unless (-f $from) |
|
561
|
0 |
2 |
unless open $fromfh, "<", $from |
|
562
|
0 |
2 |
if (open $tofh, '<', $to) { } |
|
564
|
0 |
0 |
if $_ ne readline $tofh |
|
565
|
0 |
0 |
unless eof $tofh |
|
570
|
2 |
0 |
if ($diff) |
|
571
|
0 |
2 |
if (-e $to) |
|
572
|
0 |
0 |
unless unlink $to |
|
575
|
0 |
2 |
if $how eq "best" |
|
576
|
2 |
0 |
if $how eq "cp" |
|
577
|
0 |
0 |
if $how eq "ln" |
|
590
|
0 |
2 |
$Is_VMS ? : |
|
598
|
0 |
0 |
if $Is_VMS or $^O eq "MSWin32" and Win32::IsWin95() |
|
601
|
0 |
0 |
unless (_manicopy_chmod($srcFile, $dstFile)) |
|
615
|
1 |
1 |
$perm & 64 ? : |
|
624
|
0 |
0 |
if ($is_exception or not $ExtUtils::Manifest::Config{'d_link'} or -l $srcFile) { } |
|
627
|
0 |
0 |
unless ln($srcFile, $dstFile) |
|
649
|
0 |
16 |
unless @needed |
|
651
|
0 |
16 |
unless open my $fh, ">>", $MANIFEST |
|
657
|
9 |
11 |
if ($file =~ /\s/) |
|
663
|
0 |
16 |
unless close $fh |
|
674
|
0 |
16 |
unless open my $fh, "<", $MANIFEST |
|
679
|
15 |
1 |
if ($manifest[-1] eq '') { } |
|
683
|
2 |
91 |
unless ($manifest[$i] eq "\n") |
|
692
|
3 |
13 |
if ($must_rewrite) |
|
694
|
0 |
3 |
unless open $fh, ">", $MANIFEST |
|
699
|
0 |
3 |
unless close $fh |