|
|
|
|
@ -883,7 +883,7 @@ sub simple_text_parser ($$$$$) {
|
|
|
|
|
}; |
|
|
|
|
} |
|
|
|
|
if ($section eq 'provides') { |
|
|
|
|
push @provides, $body; |
|
|
|
|
push @provides, $body if !defined $usecond; |
|
|
|
|
} elsif ($section ne '') { |
|
|
|
|
push @{$bags->{"$usecond"}->{$section}}, $body; |
|
|
|
|
} |
|
|
|
|
@ -957,7 +957,7 @@ sub xml_parser ($$$$$) {
|
|
|
|
|
my(@include); |
|
|
|
|
|
|
|
|
|
my($xml,$rep,$sub); |
|
|
|
|
my($provides,@provides,%options,$rec); |
|
|
|
|
my(@provides,%options,$rec); |
|
|
|
|
my($href,$name,$version,$release,$desc); |
|
|
|
|
my($options); |
|
|
|
|
|
|
|
|
|
@ -979,15 +979,20 @@ sub xml_parser ($$$$$) {
|
|
|
|
|
defined $version && |
|
|
|
|
defined $release; |
|
|
|
|
|
|
|
|
|
$provides = $_->{'Provides'}->[0]->{'rdf:bag'}->[0]; |
|
|
|
|
if ($provides->{'rdf:li'}) { |
|
|
|
|
$provides = $provides->{'rdf:li'}; |
|
|
|
|
} else { |
|
|
|
|
$provides = $provides->{'resource'}; |
|
|
|
|
@provides = (); |
|
|
|
|
if ($_->{'Provides'}) { |
|
|
|
|
@provides = map { |
|
|
|
|
$_ = $_->{'rdf:bag'}->[0]; |
|
|
|
|
$_ = $_->{'rdf:li'} ? $_->{'rdf:li'} : $_->{'resource'}; |
|
|
|
|
@$_; |
|
|
|
|
} grep { |
|
|
|
|
!exists $_->{'cond'} |
|
|
|
|
} @{$_->{'Provides'}}; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
@provides = map { |
|
|
|
|
depends2provides(parse_depends($_)) |
|
|
|
|
} @$provides; |
|
|
|
|
} @provides; |
|
|
|
|
|
|
|
|
|
%options = map { |
|
|
|
|
( $_->{with} => $_->{version} ) |
|
|
|
|
|