diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-03-09 10:34:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-03-09 10:34:26 +0000 |
| commit | 85a188c00a74a57ccc7fe38cac1434c129d18564 (patch) | |
| tree | 87ce895575dc65c45ac54d4ae66e725d0dd5e986 /perl-install | |
| parent | f75afb325ed49ca182b696919bf580c672a3e6cf (diff) | |
| download | drakx-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.pm | 6 |
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 |