}
if ($differs & D_PAT_OTH) {
+ my $mode;
+ $differs &= ~D_PAT_OTH;
+ my $pat_oth = sub {
+ $differs |= D_PAT_OTH;
+ no qw(exiting); last;
+ };
$rundiff([qw(--name-status)], ':debian/patches', sub {
-
+ no warnings qw(exiting);
+ if (!defined $mode) {
+ $mode = $f; next;
+ } elsif ($mode eq 'A' && $f !~ m/^\w+\.series$/) {
+ } elsif ($mode eq 'M' && $f eq 'series') {
+ my $x_s = git_cat_file "$x:debian/patches/series", 'blob';
+ my $y_s = git_cat_file "$y:debian/patches/series", 'blob';
+ chomp $x_s; $x_s .= "\n";
+ $pat_oth->() unless $x_s = substr($y_s, 0, length $x_s);
+ } else {
+ $pat_oth->();
+ }
+ $mode = undef;
});