| line | % | coverage | condition |
|---|
| 58 | 0 | | $opts{'old'} and $opts{'new'} and $opts{'filename'} |
| 61 | 0 | | -f $opts{'old'} and -f $opts{'new'} |
| 0 | | -d $opts{'old'} and -d $opts{'new'} |
| 89 | 0 | | $opts{'include_timestamp'} //= 0 |
| 94 | 0 | | $opts{'handle_binary_func'} // sub {
my($self, $old, $new, %opts) = @_;
my $file = $opts{'filename'};
$self->_fail_with_msg($file, g_("binary file contents changed"));
} |
| 105 | 0 | | $opts{'label_old'} and $opts{'label_new'} |
| 149 | 0 | | *$self->{'empty'} and defined *$self->{'header'} |
| 162 | 0 | | WIFEXITED($?) and $exit == 0 || $exit == 1 || $binary |
| 165 | 0 | | $exit == 0 || $exit == 1 |
| 172 | 0 | | $opts{'basedirname'} || basename($new) |
| 191 | 0 | | -b _ or -c _ or -S _ |
| 270 | 0 | | $opts{'order_from'} and -e $opts{'order_from'} |
| 288 | 0 | | $patchorder{$fn} //= $i++ |
| 303 | 0 | | $success and $old_file eq "/dev/null" and $new_file ne "/dev/null" |
| 385 | 33 | | -e $new and not -e $old |
| 386 | 33 | | -e $old and not -e $new |
| 418 | 50 | | $opts{'verbose'} //= 1 |
| 429 | 67 | | defined $line or not eof $self |
| 450 | 67 | | $line ne "/dev/null" and $line =~ s[^[^/]*/+][$destdir/] |
| 468 | 33 | | $line ne "/dev/null" and $line =~ s[^[^/]*/+][$destdir/] |
| 472 | 67 | | defined $fn{'old'} or defined $fn{'new'} |
| 494 | 67 | | $path{'old'} eq "/dev/null" and $path{'new'} eq "/dev/null" |
| 508 | 67 | | $dirname =~ s[/[^/]+$][] and not -d $dirname |
| 528 | 0 | | $opts{'verbose'} and $filepatched{$fn} == 2 |
| 548 | 67 | | $olines or $nlines |
| 550 | 0 | | $olines == $nlines and $olines < 3 |
| 560 | 33 | | $line =~ /^ / or length $line == 0 |
| 603 | 50 | | $opts{'force_timestamp'} //= 1 |
| 604 | 50 | | $opts{'remove_backup'} //= 1 |
| 605 | 50 | | $opts{'create_dirs'} //= 1 |
| 607 | 50 | | $opts{'options'} ||= ["-t", "-F", 0, "-N", "-p1", "-u", "-V", "never", "-b", "-z", ".dpkg-orig"] |
| 616 | 50 | | $opts{'add_options'} //= [] |
| 646 | 50 | | $opts{'force_timestamp'} and scalar @files |
| 33 | | $now //= &fs_time($files[0]) |
| 649 | 33 | | utime $now, $now, $fn or $! == 2 |
| 664 | 0 | | $opts{'create_dirs'} //= 1 |
| 666 | 0 | | $opts{'options'} ||= ["--dry-run", "-s", "-t", "-F", 0, "-N", "-p1", "-u", "-V", "never", "-b", "-z", ".dpkg-orig"] |
| 677 | 0 | | $opts{'add_options'} //= [] |