diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-12-03 14:43:16 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-12-03 14:43:16 +0000 |
| commit | 5c39e4db9067094f865efd1b1ff62168e4cac1cf (patch) | |
| tree | 9606cb3345eaca8cb38ca81a33277facd32b14f5 /URPM.pm | |
| parent | 3b66cccbb743adac20e4512264a47f36eeec1f1a (diff) | |
| download | perl-URPM-5c39e4db9067094f865efd1b1ff62168e4cac1cf.tar perl-URPM-5c39e4db9067094f865efd1b1ff62168e4cac1cf.tar.gz perl-URPM-5c39e4db9067094f865efd1b1ff62168e4cac1cf.tar.bz2 perl-URPM-5c39e4db9067094f865efd1b1ff62168e4cac1cf.tar.xz perl-URPM-5c39e4db9067094f865efd1b1ff62168e4cac1cf.zip | |
0.71-1mdk0.71
Diffstat (limited to 'URPM.pm')
| -rw-r--r-- | URPM.pm | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -6,7 +6,7 @@ use vars qw($VERSION @ISA); require DynaLoader; @ISA = qw(DynaLoader); -$VERSION = '0.70'; +$VERSION = '0.71'; bootstrap URPM $VERSION; @@ -35,7 +35,7 @@ sub search { my $pkg = $urpm->{depslist}[$_]; my ($n, $v, $r, $a) = $pkg->fullname; $options{src} && $a eq 'src' || $pkg->is_arch_compat or next; - $n eq $1 or next; + "$n-$v-$r" eq $name or next; !$best || $pkg->compare_pkg($best) > 0 and $best = $pkg; } $best and return $best; @@ -43,9 +43,9 @@ sub search { if ($name =~ /^(.*)-([^\-]*)$/) { foreach (keys %{$urpm->{provides}{$1} || {}}) { my $pkg = $urpm->{depslist}[$_]; - my ($n, $v, $r, $a) = $pkg->fullname; + my ($n, $v, undef, $a) = $pkg->fullname; $options{src} && $a eq 'src' || $pkg->is_arch_compat or next; - $n eq $1 or next; + "$n-$v" eq $name or next; !$best || $pkg->compare_pkg($best) > 0 and $best = $pkg; } $best and return $best; @@ -54,7 +54,7 @@ sub search { foreach (keys %{$urpm->{provides}{$_} || {}}) { my $pkg = $urpm->{depslist}[$_]; - my ($n, $v, $r, $a) = $pkg->fullname; + my ($n, undef, undef, $a) = $pkg->fullname; $options{src} && $a eq 'src' || $pkg->is_arch_compat or next; $n eq $name or next; !$best || $pkg->compare_pkg($best) > 0 and $best = $pkg; |