Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
unless $differs & (D_PAT_ADD|D_PAT_OTH);
}
unless $differs & (D_PAT_ADD|D_PAT_OTH);
}
- printdebug sprintf "get_differs %s, %s = %#x\n", $x, $y, $differs;
+ printdebug sprintf "get_differs %s %s = %#x\n", $x, $y, $differs;
my @earlier;
while (my $patch = <S>) {
chomp $patch or die $!;
my @earlier;
while (my $patch = <S>) {
chomp $patch or die $!;
+ $prereq{$patch} //= {};
foreach my $earlier (@earlier) {
$prereq{$patch}{$earlier}{$s}++ and die;
}
foreach my $earlier (@earlier) {
$prereq{$patch}{$earlier}{$s}++ and die;
}