From 85a188c00a74a57ccc7fe38cac1434c129d18564 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 9 Mar 2009 10:34:26 +0000
Subject: (_unselect_package) fix unselecting packages

---
 perl-install/install/pkgs.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/install/pkgs.pm')

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
-- 
cgit v1.2.1