* Don't generate patches if the system type differs.

This commit is contained in:
Eelco Dolstra 2010-11-29 09:26:05 +00:00
parent bd48fd97f6
commit 9737a7eba0
2 changed files with 13 additions and 2 deletions

View file

@ -228,6 +228,13 @@ foreach my $p (keys %dstOutPaths) {
if ($name eq $name2) {
my $srcSystem = @{$dstNarFiles{$p}}[0]->{system};
my $dstSystem = @{$srcNarFiles{$q}}[0]->{system};
if (defined $srcSystem && defined $dstSystem && $srcSystem ne $dstSystem) {
print " SKIPPING $q due to different systems ($srcSystem vs. $dstSystem)\n";
next;
}
# If the sizes differ too much, then skip. This
# disambiguates between, e.g., a real component and a
# wrapper component (cf. Firefox in Nixpkgs).
@ -238,7 +245,7 @@ foreach my $p (keys %dstOutPaths) {
# print " SIZE $srcSize $dstSize $ratio $q\n";
if ($ratio >= 3) {
print " SKIPPING $q due to size ratio $ratio ($srcSize $dstSize)\n";
print " SKIPPING $q due to size ratio $ratio ($srcSize vs. $dstSize)\n";
next;
}