|
|
|
@ -300,7 +300,7 @@ sub parse_provides ($) { |
|
|
|
my($s) = @_; |
|
|
|
my($s) = @_; |
|
|
|
my($nam,$val,$pre,$with,$pxy,$ver,$rel); |
|
|
|
my($nam,$val,$pre,$with,$pxy,$ver,$rel); |
|
|
|
|
|
|
|
|
|
|
|
($nam,$val) = $s =~ /^(\S+)\s*(?:=\s*(\S*?))?$/; |
|
|
|
($nam,$val) = $s =~ /^([^\s\(]+(?:\([^\)]*\))?)\s*(?:=\s*(\S*?))?$/; |
|
|
|
|
|
|
|
|
|
|
|
# |
|
|
|
# |
|
|
|
# build options are encoded as a Requirement |
|
|
|
# build options are encoded as a Requirement |
|
|
|
@ -429,6 +429,7 @@ sub get_installed () { |
|
|
|
@list = (); |
|
|
|
@list = (); |
|
|
|
foreach (@l) { |
|
|
|
foreach (@l) { |
|
|
|
next unless $p = parse_provides($_); |
|
|
|
next unless $p = parse_provides($_); |
|
|
|
|
|
|
|
next if $p->{name} =~ /^gpg\(/; |
|
|
|
|
|
|
|
|
|
|
|
# is this an option ? |
|
|
|
# is this an option ? |
|
|
|
if (defined $p->{with}) { |
|
|
|
if (defined $p->{with}) { |
|
|
|
@ -491,10 +492,11 @@ sub get_installed () { |
|
|
|
@list = (); |
|
|
|
@list = (); |
|
|
|
foreach (@l) { |
|
|
|
foreach (@l) { |
|
|
|
($name,$version,$release,$req) = /^(\S+)\s+(\S+)\s+(\S+)\s*(.*?)\s*$/; |
|
|
|
($name,$version,$release,$req) = /^(\S+)\s+(\S+)\s+(\S+)\s*(.*?)\s*$/; |
|
|
|
|
|
|
|
next if $name eq 'gpg-pubkey'; |
|
|
|
$release =~ s/\+PROXY$//; |
|
|
|
$release =~ s/\+PROXY$//; |
|
|
|
while ($req =~ /\.(\S+)\s+\.(\S*)\s+\.(\S*)/g) { |
|
|
|
while ($req =~ /\.(\S+)\s+\.(\S*)\s+\.(\S*)/g) { |
|
|
|
$p = parse_depends("$1 $2 $3"); |
|
|
|
$p = parse_depends("$1 $2 $3"); |
|
|
|
next if $p->{name} =~ /^rpmlib\(/; |
|
|
|
next if $p->{name} =~ /^(rpmlib|gpg)\(/; |
|
|
|
|
|
|
|
|
|
|
|
$vs = vs({ version => $version, release => $release}); |
|
|
|
$vs = vs({ version => $version, release => $release}); |
|
|
|
$p = { cond => '', value => $p }; |
|
|
|
$p = { cond => '', value => $p }; |
|
|
|
|