Branch Coverage

File:Dpkg/Source/Patch.pm
Coverage:22.9%

line%coveragebranch
460TFif ($opts{'old'} and $opts{'new'} and $opts{'filename'})
470TFunless -e $opts{'old'}
480TFunless -e $opts{'new'}
490TFif (-d $opts{'old'} and -d $opts{'new'}) { }
0TFelsif (-f $opts{'old'} and -f $opts{'new'}) { }
560TFunless $opts{'nofinish'}
680TFif (ref *$self->{'header'} eq 'CODE') { }
840TFif compare($old, $new, 4096) == 0
870TFif ($opts{'options'}) { }
930TFif ($opts{'label_old'} and $opts{'label_new'})
940TFif ($opts{'include_timestamp'}) { }
1050TFif $opts{'label_old'} =~ / /
1060TFif $opts{'label_new'} =~ / /
1240TFif (/^(?:binary|[^-+\@ ].*\bdiffer\b)/i) { }
0TFelsif (/^[-+\@ ]/) { }
0TFelsif (/^\\ /) { }
1370TFif (*$self->{'empty'} and defined *$self->{'header'})
1380TFunless $self->print($self->get_header)
1410TFunless print {$self;} $_
1430TFunless close $diffgen
1500TFunless (WIFEXITED($?) and $exit == 0 || $exit == 1 || $binary)
1620TFif ($opts{'diff_ignore_func'}) { }
0TFelsif ($opts{'diff_ignore_regex'}) { }
1730TFlength $_ > length $new ? :
1740TFif &$diff_ignore($fn)
1760TFunless lstat "$new/$fn"
1790TFif (-l _) { }
0TFelsif (-f _) { }
0TFelsif (-p _) { }
0TFelsif (-b _ or -c _ or -S _) { }
0TFelsif (-d _) { }
1800TFunless (-l "$old/$fn")
1850TFunless (defined $n)
1890TFunless (defined $n2)
1920TFunless ($n eq $n2)
1970TFif (not lstat "$old/$fn") { }
0TFelsif (not -f _) { }
1980TFif ($! != 2)
2080TFif ($opts{'use_dev_null'})
2090TFif $old_file eq "/dev/null"
2140TFunless (-p "$old/$fn")
2210TFif (not lstat "$old/$fn") { }
0TFelsif (not -d _) { }
2220TFif ($! != 2)
2330TFlength $_ > length $old ? :
2340TFif &$diff_ignore($fn)
2350TFif $files_in_new{$fn}
2360TFunless lstat "$old/$fn"
2370TFif (-f _) { }
0TFelsif (-d _) { }
0TFelsif (-l _) { }
2380TFif (not defined $opts{'include_removal'}) { }
0TFelsif (not $opts{'include_removal'}) { }
2580TFif ($opts{'order_from'} and -e $opts{'order_from'}) { }
2910TFif ($success and $old_file eq "/dev/null" and $new_file ne "/dev/null")
2930TFif (not $size) { }
2970TFif ($mode & 73)
2980TFunless $fn eq "debian/rules"
3020TFif ($mode & 3584)
3130TFunless close $self
340100TFif (defined $line)
356100TFif ($header =~ /^"/) { }
36250TFunless $header =~ s/\t.*//
371100TFunless defined $old
37250TFunless defined $new
37350TFif -e $new and not -e $old
37450TFif -e $old and not -e $new
39250TFif ($nb_comp_o != $nb_comp_n) { }
50TFelsif ($blen_o != $blen_n) { }
50TFelsif ($len_o != $len_n) { }
3930TF$nb_comp_o < $nb_comp_n ? :
3950TF$blen_o < $blen_n ? :
3970TF$len_o < $len_n ? :
424100TFif ($line =~ /^(?:--- |\+\+\+ |\@@ -)/) { }
43050TFunless defined $line
434100TFunless ($line =~ s/^--- //)
438100TFif ($line ne "/dev/null" and $line =~ s[^[^/]*/+][$destdir/])
44150TFif ($line =~ /\.dpkg-orig$/)
44750TFunless (defined $line)
45150TFunless ($line =~ s/^\+\+\+ //)
45650TFif ($line ne "/dev/null" and $line =~ s[^[^/]*/+][$destdir/])
46050TFunless (defined $fn{'old'} or defined $fn{'new'})
467100TFunless defined $fn{$key}
46850TFif ($path{$key} =~ m[/\.\./])
47350TFif (-l $path)
47750TFunless $path =~ s[/+[^/]*$][]
478100TFif length $path <= length $destdir
48250TFif ($path{'old'} eq '/dev/null' and $path{'new'} eq '/dev/null') { }
50TFelsif ($path{'new'} eq '/dev/null') { }
4870TFunless defined $fn{'old'}
4880TFif ($opts{'verbose'})
4900TFunless -e $fn{'old'}
496100TFif ($dirname =~ s[/[^/]+$][] and not -d $dirname)
50050TFif (-e $fn and not -f _)
50550TFif ($filepatched{$fn}) { }
5080TFif ($opts{'fatal_dupes'}) { }
0TFelsif ($opts{'verbose'} and $filepatched{$fn} == 2) { }
52450TFif $line =~ /^\\ /
525100TFunless $line =~ /^\@@ -\d+(,(\d+))? \+\d+(,(\d+))? \@\@(?: .*)?$/
52650TF$1 ? :
50TF$3 ? :
52950TFunless (defined($line = _getline($self)))
5300TFif ($olines == $nlines and $olines < 3) { }
5320TFif $opts{'verbose'}
53850TFif $line =~ /^\\ /
54050TFif ($line =~ /^ / or length $line == 0) { }
50TFelsif ($line =~ /^-/) { }
50TFelsif ($line =~ /^\+/) { }
554100TFunless ($hunk)
55950TFunless ($diff_count)
5610TFif $opts{'verbose'}
57250TFif ($opts{'create_dirs'})
5750TFif $@
607100TFif ($?)
61850TFif $opts{'force_timestamp'} and scalar @files
62050TFif ($opts{'force_timestamp'})
62150TFunless utime $now, $now, $fn or $! == 2
62450TFif ($opts{'remove_backup'})
62650TFunless unlink $fn
6570TFunless WIFEXITED($?)
6650TFif (not lstat $file) { }
6660TFif $! == 2
6690TFif -f _
6700TFif -d _
6710TFif -l _
6720TFif -b _
6730TFif -c _
6740TFif -p _
6750TFif -S _