diff options
author | Francois Pons <fpons@mandriva.com> | 2003-02-13 17:53:08 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2003-02-13 17:53:08 +0000 |
commit | 62607899680c3585543c007dbb37edb0205a1e9a (patch) | |
tree | d7894e5bd5b5d2773ab09aa1301ee3f54be83c3f | |
parent | 16d9930415ab46e0b9101962ffce66f44f5fd794 (diff) | |
download | perl-URPM-62607899680c3585543c007dbb37edb0205a1e9a.tar perl-URPM-62607899680c3585543c007dbb37edb0205a1e9a.tar.gz perl-URPM-62607899680c3585543c007dbb37edb0205a1e9a.tar.bz2 perl-URPM-62607899680c3585543c007dbb37edb0205a1e9a.tar.xz perl-URPM-62607899680c3585543c007dbb37edb0205a1e9a.zip |
fix rpmdrake woes on incompatible arch.
-rw-r--r-- | URPM/Resolve.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 32a03f4..d2677ca 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -599,6 +599,7 @@ sub compute_installed_flags { #- first pass to initialize flags installed and upgrade for all package. foreach (@{$urpm->{depslist}}) { + $_->is_arch_compat or next; $_->flag_upgrade || $_->flag_installed or $_->set_flag_upgrade; } @@ -610,7 +611,7 @@ sub compute_installed_flags { #- compute flags. foreach (keys %{$urpm->{provides}{$p->name} || {}}) { my $pkg = $urpm->{depslist}[$_]; - $pkg->name eq $p->name or next; + $pkg->is_arch_compat && $pkg->name eq $p->name or next; #- compute only installed and upgrade flags. $pkg->set_flag_installed; #- there is at least one package installed (whatever its version). $pkg->flag_upgrade and $pkg->set_flag_upgrade($pkg->compare_pkg($p) > 0); |