(get_pkgs,get_summary) slightly reduce memory usage by not keeping around

summaries (2.1% of resident memory saved on std x86_64 media config)

1 files changed, 2 insertions, 4 deletions

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index f4a61909..37aca9a5 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -334,7 +334,6 @@ sub get_installed_packages {
                       #- Extract summary and description since they'll be lost when the header is packed
                       $all_pkgs->{$fullname} = {
                           selected => 0, pkg => $pkg, urpm_name => urpm_name($pkg),
-                          summary => $pkg->summary,
                           description => rpm_description($pkg->description),
                       } if !($all_pkgs->{$fullname} && $all_pkgs->{$fullname}{description});
                       if (my $name = $base{$fullname}) {
@@ -499,7 +498,7 @@ sub get_pkgs {
 	$pkg->flag_upgrade or next;
         my $name = urpm_name($pkg);
         push @installable_pkgs, $name;
-        $all_pkgs{$name} = { pkg => $pkg, summary => $pkg->summary };
+        $all_pkgs{$name} = { pkg => $pkg };
     }
     foreach my $medium (@search_medias) {
         update_pbar($gurpm);
@@ -509,7 +508,7 @@ sub get_pkgs {
           $pkg->flag_upgrade or next;
           my $name = urpm_name($pkg);
 	  	push @backports, $name;
-          $all_pkgs{$name} = { pkg => $pkg, summary => $pkg->summary };
+          $all_pkgs{$name} = { pkg => $pkg };
       }
     }
     foreach my $medium (@update_medias) {
@@ -526,7 +525,6 @@ sub get_pkgs {
             push @updates, $name;
 	}
         $all_pkgs{$name} = { selected => $selected, pkg => $pkg,
-                                       summary => $pkg->summary,
                                    };
       }
     }