Branch Coverage

blib/script/makepatch
Criterion Covered Total %
branch 95 364 26.1


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