(get_pkgs): moved setting the installed flag of URPM pkgs to

get_installed_packages().

1 files changed, 1 insertions, 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));