summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-03-09 10:34:26 +0000
committerThierry Vignaud <tv@mandriva.org>2009-03-09 10:34:26 +0000
commit85a188c00a74a57ccc7fe38cac1434c129d18564 (patch)
tree87ce895575dc65c45ac54d4ae66e725d0dd5e986 /perl-install
parentf75afb325ed49ca182b696919bf580c672a3e6cf (diff)
downloaddrakx-85a188c00a74a57ccc7fe38cac1434c129d18564.tar
drakx-85a188c00a74a57ccc7fe38cac1434c129d18564.tar.gz
drakx-85a188c00a74a57ccc7fe38cac1434c129d18564.tar.bz2
drakx-85a188c00a74a57ccc7fe38cac1434c129d18564.tar.xz
drakx-85a188c00a74a57ccc7fe38cac1434c129d18564.zip
(_unselect_package) fix unselecting packages
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/pkgs.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index f2b70254c..87b1b88ad 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -694,7 +694,7 @@ sub install {
log::l("closing install.log file");
close $LOG;
- # prevent urpmi from trying to install them again:
+ # prevent urpmi from trying to install them again (CHECKME: maybe uneeded):
$packages->{state} = {};
clean_rpmdb_shared_regions(); #- workaround librpm which is buggy when using librpm rooted and the just installed rooted library
@@ -703,7 +703,7 @@ sub install {
}
sub _unselect_package {
- my ($pkg) = @_;
+ my ($packages, $pkg) = @_;
#- update flag associated to package.
$pkg->set_flag_installed(1);
$pkg->set_flag_upgrade(0);
@@ -746,7 +746,7 @@ sub _install_raw {
}
$check_installed or log::l($pkg->name . " not installed, " . URPM::rpmErrorString());
- $check_installed and _unselect_package($pkg);
+ $check_installed and _unselect_package($packages, $pkg);
}, inst => $callback,
trans => $callback,
# FIXME: implement already_installed_or_not_installable