|
|
@@ -146,8 +146,11 @@ for $_ (keys %fi) {
|
|
|
|
|
|
if (s/^C //) {
|
|
|
#print STDERR "G key >$_< value >$v<\n";
|
|
|
- if (m/^(Origin|Bugs|Maintainer|Homepage)$/) {
|
|
|
+ if (m/^(Origin|Bugs|Maintainer)$/) {
|
|
|
$f{$_} = $v;
|
|
|
+ } elsif (m/^Homepage$/) {
|
|
|
+ # Binary package stanzas can override these fields
|
|
|
+ $f{$_} = $v if !defined($f{$_});
|
|
|
} elsif (m/^Source$/) {
|
|
|
setsourcepackage($v);
|
|
|
}
|