From 941d5400c083eb270a001a04312cf49f5fc06709 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20Victor=20Duarte=20Martins?= Date: Tue, 22 Jun 2010 19:55:40 +0000 Subject: (get_pkgs): moved setting the installed flag of URPM pkgs to get_installed_packages(). --- Rpmdrake/pkg.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 795a2ae6..a2f3e4d6 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -343,6 +343,7 @@ sub get_installed_packages { $pkg->set_flag_base(1) if $$name == 1; } push @installed_pkgs, $fullname; + $pkg->set_flag_installed; $pkg->pack_header; # needed in order to call methods on objects outside ->traverse }); @installed_pkgs; @@ -533,8 +534,6 @@ sub get_pkgs { $all_pkgs{$_}{selected} = 1; } - $all_pkgs{$_}{pkg}->set_flag_installed foreach @installed_pkgs; - # urpmi only care about the first medium where it found the package, # so there's no need to list the same package several time: @installable_pkgs = uniq(difference2(\@installable_pkgs, \@updates)); -- cgit v1.2.1