line |
true |
false |
branch |
235
|
0 |
7 |
unless $opt_quiet |
236
|
0 |
23 |
if $opt_verbose |
237
|
0 |
13 |
if $opt_debug |
238
|
0 |
5 |
if $opt_trace |
243
|
0 |
1 |
unless $patch->open(">$thepatch") |
246
|
0 |
1 |
if (-f $old->{'root'} and -f $new->{'root'}) { } |
|
0 |
1 |
elsif (-f $old->{'root'} and -d $new->{'root'}) { } |
|
0 |
1 |
elsif (-d $old->{'root'} and -f $new->{'root'}) { } |
|
1 |
0 |
elsif (-d $old->{'root'} and -d $new->{'root'}) { } |
251
|
0 |
0 |
if &dodiff($dot, $new->{'root'}, $dot, $old->{'root'}) |
257
|
0 |
0 |
if (-f $new->{'root'}) { } |
260
|
0 |
0 |
if &dodiff($dot, $new->{'root'}, $dot, $old->{'root'}) |
270
|
0 |
0 |
if (-f $old->{'root'}) { } |
273
|
0 |
0 |
if &dodiff($dot, $new->{'root'}, $dot, $old->{'root'}) |
278
|
0 |
0 |
if &newfile($new->{'root'}, $old->{'root'}) |
283
|
0 |
1 |
if ($opt_nomanifest) { } |
|
0 |
1 |
elsif (defined $opt_automanifest and not defined $opt_oldmanifest || defined $opt_newmanifest and (-s &catfile($old->{'root'}, $opt_automanifest) and -s &catfile($new->{'root'}, $opt_automanifest))) { } |
305
|
0 |
2 |
if (defined $_->{'manfn'}) { } |
307
|
0 |
0 |
$_->{'name'} eq $dotdot ? : |
|
0 |
0 |
$_->{'name'} eq $dot ? : |
311
|
0 |
0 |
scalar @{$_->{'files'};} == 1 ? : |
315
|
0 |
2 |
$_->{'name'} eq $dotdot ? : |
|
0 |
2 |
$_->{'name'} eq $dot ? : |
321
|
0 |
2 |
scalar @{$_->{'files'};} == 1 ? : |
326
|
1 |
0 |
unless defined $opt_patchlevel |
329
|
0 |
1 |
if (defined $opt_patchlevel and $opt_patchlevel ne '') { } |
332
|
0 |
0 |
unless (-f $newpl) |
335
|
0 |
0 |
if (-f $oldpl) { } |
337
|
0 |
0 |
&dodiff($new->{'root'}, $opt_patchlevel, $old->{'root'}, $opt_patchlevel) ? : |
345
|
0 |
0 |
if &newfile($new->{'root'}, $opt_patchlevel) |
363
|
2 |
0 |
unless defined $o |
364
|
2 |
0 |
unless defined $n |
366
|
0 |
2 |
if $opt_debug |
368
|
0 |
2 |
if (defined $n and !defined($o) || $o gt $n) { } |
|
0 |
2 |
elsif (not defined $n or $o lt $n) { } |
|
2 |
0 |
elsif ($o eq $n) { } |
373
|
0 |
0 |
if &newfile($new->{'root'}, $n) |
388
|
2 |
0 |
if &dodiff($new->{'root'}, $n, $old->{'root'}, $o) |
420
|
0 |
57 |
$_ =~ /^\[/ ? : |
|
19 |
57 |
$_ eq '.' ? : |
|
0 |
76 |
$_ eq '?' ? : |
|
17 |
76 |
$_ eq '*' ? : |
429
|
1 |
0 |
if (@opt_exclude) |
437
|
1 |
0 |
if (@opt_exclude_regex) |
443
|
0 |
22 |
if ($@) |
458
|
0 |
0 |
unless (open $fh, $f) |
476
|
0 |
0 |
unless @list |
479
|
0 |
0 |
unless defined $_ |
480
|
0 |
0 |
if $_ and not $_ =~ m[/$] |
489
|
0 |
0 |
if ($@) |
497
|
0 |
0 |
if ($ret) |
513
|
0 |
2 |
unless opendir $dh, $dir |
522
|
0 |
2 |
if -s $_ |
528
|
4 |
4 |
if $file =~ /^\.\.?$/ |
529
|
0 |
4 |
if $file =~ /~$/ |
532
|
0 |
4 |
defined $disp ? : |
535
|
0 |
4 |
if (defined $excl and $display_name =~ /$excl/mos) |
542
|
0 |
4 |
if (-d $realname and $opt_follow || !(-l $realname)) { } |
|
4 |
0 |
elsif (-f _) { } |
543
|
0 |
0 |
unless $opt_recurse |
556
|
2 |
0 |
if $opt_sort |
569
|
0 |
0 |
unless $fh->open($man) |
572
|
0 |
0 |
if ($. == 2 and /^[-=_\s]*$/) |
576
|
0 |
0 |
if /^#/ |
577
|
0 |
0 |
unless /\S/ |
578
|
0 |
0 |
if /^(\S+)\s/ |
579
|
0 |
0 |
if (defined $exclude_pat and /$exclude_pat/mos) |
587
|
0 |
0 |
if $opt_sort |
601
|
0 |
2 |
if (%opt_extract) |
615
|
0 |
8 |
if ($base =~ /^$pat$/is) |
618
|
0 |
0 |
unless $arg->{'root'} eq $arg->{'name'} |
632
|
0 |
0 |
unless mkdir $tmp, 511 |
638
|
0 |
0 |
if ($ret or $? & 127) |
639
|
0 |
0 |
if $opt_test |
645
|
0 |
0 |
unless opendir $dir, $tmp |
650
|
0 |
0 |
if (@files == 1 and -d &catfile($tmp, $files[0])) |
665
|
0 |
6 |
if $^O =~ /^MSWin/i |
676
|
0 |
2 |
if (-s $oldfn and -B _) |
681
|
0 |
2 |
if (-s $newfn and -B _) |
692
|
2 |
0 |
if $result |
694
|
0 |
2 |
if ($result and $result < 128) |
695
|
0 |
0 |
$result == 2 || $result == 3 ? : |
697
|
0 |
0 |
if $opt_test |
700
|
0 |
2 |
unless $result == 256 |
704
|
0 |
2 |
if (defined $opt_infocmd) |
718
|
2 |
0 |
if ($fh->open($oldfn)) { } |
721
|
6 |
0 |
unless /(\@\(\#\)\@?|\$Header\:|\$Id\:)(.*)$/ |
722
|
0 |
0 |
unless $+ =~ /(\s\d+(\.\d+)*\s)/ |
733
|
0 |
2 |
unless $fh->open($tmpfile) |
739
|
0 |
6 |
if (/^\@\@/) { } |
|
2 |
4 |
elsif (/^\*{15}/) { } |
750
|
0 |
2 |
unless ($found) |
757
|
0 |
2 |
if ($unified) { } |
789
|
0 |
0 |
unless ($fh->open($newfn)) |
796
|
0 |
0 |
if (-s $newfn and -B _) |
809
|
0 |
0 |
if ($lines == 0) |
818
|
0 |
0 |
if (defined $opt_infocmd) |
830
|
0 |
0 |
unless $lines == 1 |
832
|
0 |
0 |
if ($unified) { } |
877
|
0 |
6 |
$^O =~ /^MSWin/i ? : |
883
|
0 |
1 |
if (defined $reason) |
888
|
0 |
0 |
$skipped == 1 ? : |
|
0 |
0 |
$opt_verbose ? : |
|
0 |
1 |
if $skipped |
894
|
0 |
1 |
if (@opt_descr == 0) |
899
|
0 |
0 |
if ($old ne $dot and $old ne $dotdot and basename($old) eq $old and $new ne $dot and $new ne $dotdot and basename($new) eq $new) |
907
|
0 |
1 |
if (@opt_descr == 0) |
912
|
0 |
0 |
if $_ eq '.' |
916
|
0 |
0 |
unless $_ eq '.' |
934
|
0 |
2 |
if $op eq 'c' |
935
|
0 |
2 |
if $op eq 'r' |
936
|
2 |
0 |
if $op eq 'p' |
946
|
0 |
0 |
unless (defined $dir_gone{$dir}) |
947
|
0 |
0 |
unless (-d &catfile($new->{'root'}, $dir)) |
966
|
0 |
0 |
unless (defined $dir_ok{$dir}) |
967
|
0 |
0 |
unless (-d &catfile($old->{'root'}, $dir)) |
980
|
0 |
1 |
unless $fh->open(">$tmpfile") |
999
|
0 |
1 |
if ($removed or $created) { } |
1002
|
0 |
0 |
if $created |
1003
|
0 |
0 |
if ($removed) |
1004
|
0 |
0 |
if $cd |
1008
|
0 |
0 |
if ($dcreated or $dremoved) |
1009
|
0 |
0 |
if $fd |
1024
|
0 |
0 |
if ($op eq 'C') |
1026
|
0 |
0 |
if (defined $args[2] and $args[2] &= 511) |
1033
|
0 |
0 |
if ($op eq 'r') { } |
|
0 |
0 |
elsif ($op eq 'R') { } |
|
0 |
0 |
elsif ($op eq 'c') { } |
1041
|
0 |
0 |
if (defined $args[2] and $args[2] &= 511) |
1079
|
1 |
0 |
if $opt_recurse |
1080
|
1 |
0 |
if @opt_exclude_regex |
1088
|
2 |
0 |
if (defined $args[2] and $op eq 'c' || $op eq 'C' || $op eq 'p') |
1091
|
2 |
0 |
if @args |
1108
|
0 |
1 |
unless $fh->open($tmpfile) |
1112
|
1 |
77 |
if /^#### Patch data follows ####/ |
1137
|
0 |
1 |
$patched == 1 ? : |
1139
|
0 |
1 |
if ($created) |
1140
|
0 |
0 |
$created == 1 ? : |
1141
|
0 |
0 |
$dcreated == 1 ? : |
|
0 |
0 |
if $dcreated |
1143
|
0 |
0 |
$created + $dcreated != 1 ? : |
1146
|
0 |
1 |
if ($removed) |
1147
|
0 |
0 |
$removed == 1 ? : |
1148
|
0 |
0 |
$dremoved == 1 ? : |
|
0 |
0 |
if $dremoved |
1150
|
0 |
0 |
$removed + $dremoved != 1 ? : |
1153
|
0 |
0 |
$excluded == 1 ? : |
|
0 |
1 |
if $excluded |
1210
|
1 |
0 |
if (defined($init = $ENV{'MAKEPATCHINIT'})) |
1213
|
1 |
0 |
if (&GetOptions(@o, 'rcfile=s', \$opt_rcfile) and @ARGV == 0) { } |
1223
|
0 |
1 |
unless ($opt_test) |
1231
|
0 |
0 |
if (defined $opt_rcfile) { } |
1240
|
0 |
1 |
if (not &GetOptions(@o) or $opt_help) |
1245
|
0 |
1 |
if ($opt_filelist) { } |
1246
|
0 |
0 |
if (defined $opt_manifest) { } |
1247
|
0 |
0 |
if @ARGV |
1251
|
0 |
0 |
unless @ARGV == 1 |
1255
|
0 |
1 |
unless @ARGV == 2 |
1258
|
0 |
1 |
if $opt_debug |
1260
|
0 |
1 |
if $opt_verbose or $opt_ident |
1263
|
0 |
1 |
if ($opt_prefix ne '') |
1264
|
0 |
0 |
unless $opt_filelist |
1268
|
0 |
1 |
if (defined $opt_sort) { } |
1269
|
0 |
0 |
unless $opt_filelist |
1276
|
0 |
1 |
if ($opt_filelist) |
1277
|
0 |
0 |
if defined $opt_oldmanifest or defined $opt_newmanifest |
1281
|
0 |
1 |
if (defined $opt_manifest) |
1282
|
0 |
0 |
if defined $opt_newmanifest or defined $opt_oldmanifest |
1288
|
0 |
1 |
if (defined $opt_infocmd) |
1289
|
0 |
0 |
if $opt_filelist |
1304
|
1 |
0 |
if $opt_quiet |
1313
|
0 |
0 |
unless ($rcfile->open($file)) |
1314
|
0 |
0 |
unless $opt |
1330
|
0 |
0 |
if /^\s*[;#]/ |
1331
|
0 |
0 |
unless /\S/ |
1339
|
0 |
0 |
unless (&GetOptions(@$optref)) |
1344
|
0 |
0 |
if (@ARGV > 0) |
1352
|
0 |
0 |
unless ($ok) |
1390
|
0 |
0 |
if $opt_test |
1391
|
0 |
0 |
if defined $exit and $exit != 0 |
1416
|
0 |
0 |
if $opt_test |
1417
|
0 |
0 |
if defined $exit and $exit != 0 |