aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-10-27 08:18:59 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-10-27 08:18:59 +0000
commit66b5f6acf1d1a94ec914c9958866ec4c59e948ae (patch)
treee81f21300364b7674bed996c3d721b3ec21256af
parentb037ff93777ac7e1ea53651891f6e9dd355d0d09 (diff)
downloadperl-URPM-66b5f6acf1d1a94ec914c9958866ec4c59e948ae.tar
perl-URPM-66b5f6acf1d1a94ec914c9958866ec4c59e948ae.tar.gz
perl-URPM-66b5f6acf1d1a94ec914c9958866ec4c59e948ae.tar.bz2
perl-URPM-66b5f6acf1d1a94ec914c9958866ec4c59e948ae.tar.xz
perl-URPM-66b5f6acf1d1a94ec914c9958866ec4c59e948ae.zip
Support for the 'strict-arch' option : upgrade only packages that have
the same architecture than the one of the already-installed version.
-rw-r--r--URPM/Resolve.pm41
1 files changed, 36 insertions, 5 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index a5e1287..5a5c436 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -4,6 +4,18 @@ use strict;
sub min { my $n = shift; $_ < $n and $n = $_ foreach @_; $n }
+#- $state fields :
+#- * ask_remove: deprecated
+#- * backtrack
+#- * cached_installed
+#- * oldpackage
+#- * rejected
+#- * selected
+#- * transaction
+#- * transaction_state
+#- * unselected: deprecated
+#- * whatrequires
+
#- Find candidates packages from a require string (or id).
#- Takes care of direct choices using the '|' separator.
sub find_candidate_packages {
@@ -32,9 +44,18 @@ sub find_candidate_packages {
\%packages;
}
+sub get_installed_arch {
+ my ($db, $n) = @_;
+ my $arch;
+ $db->traverse_tag('name', [ $n ], sub { $arch = $_[0]->arch });
+ $arch;
+}
+
sub find_chosen_packages {
my ($urpm, $db, $state, $dep) = @_;
my %packages;
+ my %installed_arch;
+ my $strict_arch = $urpm->{options}{'strict-arch'};
#- search for possible packages, try to be as fast as possible, backtrack can be longer.
foreach (split /\|/, $dep) {
@@ -44,6 +65,11 @@ sub find_chosen_packages {
$pkg->flag_skip || $state->{rejected}{$pkg->fullname} and next;
#- determine if this package is better than a possibly previously chosen package.
$pkg->flag_selected || exists $state->{selected}{$pkg->id} and return $pkg;
+ if ($strict_arch) {
+ my $n = $pkg->name;
+ defined $installed_arch{$n} or $installed_arch{$n} = get_installed_arch($db, $n);
+ $installed_arch{$n} && $pkg->arch ne $installed_arch{$n} and next;
+ }
if (my $p = $packages{$pkg->name}) {
$pkg->flag_requested > $p->flag_requested ||
$pkg->flag_requested == $p->flag_requested && $pkg->compare_pkg($p) > 0 and $packages{$pkg->name} = $pkg;
@@ -59,6 +85,11 @@ sub find_chosen_packages {
if (!$urpm->{provides}{$name}{$_} || $pkg->provides_overlap($property)) {
#- determine if this package is better than a possibly previously chosen package.
$pkg->flag_selected || exists $state->{selected}{$pkg->id} and return $pkg;
+ if ($strict_arch) {
+ my $n = $pkg->name;
+ defined $installed_arch{$n} or $installed_arch{$n} = get_installed_arch($db, $n);
+ $installed_arch{$n} && $pkg->arch ne $installed_arch{$n} and next;
+ }
if (my $p = $packages{$pkg->name}) {
$pkg->flag_requested > $p->flag_requested ||
$pkg->flag_requested == $p->flag_requested && $pkg->compare_pkg($p) > 0 and $packages{$pkg->name} = $pkg;
@@ -974,9 +1005,9 @@ sub request_packages_to_upgrade {
}
}
- #- clean direct access, a package in names should have
- #- check consistency with obsoletes of eligible package.
- #- it is important not to select a package wich obsolete
+ #- cleans up direct access, a package in names should have
+ #- checked consistency with obsoletes of eligible package.
+ #- It is important not to select a package which obsoletes
#- an old one.
foreach my $pkg (values %names) {
foreach ($pkg->obsoletes) {
@@ -1052,7 +1083,7 @@ sub request_packages_to_upgrade {
}
}
- #- examine all packages which may be conflicting, it a package conflicts, it should not be requested.
+ #- examine all packages which may be conflicting. If a package conflicts, it should not be requested.
my @names = map { $_->name . " == " . $_->epoch . ":" . $_->version . "-" . $_->release } values %names;
my @pkgs = values %names;
foreach my $pkg (@pkgs) {
@@ -1144,7 +1175,7 @@ sub build_transaction_set {
}
#- check transaction set has been correctly created,
- #- possible error are other package removed which should not be the case.
+ #- possible error is other package removed which should not be the case.
if (keys(%{$state->{selected}}) == keys(%{$state->{transaction_state}{selected}}) &&
(grep { $state->{rejected}{$_}{removed} && !$state->{rejected}{$_}{obsoleted} } keys %{$state->{rejected}}) ==
(grep { $state->{transaction_state}{rejected}{$_}{removed} && !$state->{transaction_state}{rejected}{$_}{obsoleted} }