From 4f234000a25c81bd00c2954adf2eef138cf08d7d Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 11 May 2005 06:58:44 +0000 Subject: Remove the return value of compute_installed_flags, it's not used anywhere --- URPM/Resolve.pm | 5 ----- 1 file changed, 5 deletions(-) diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index ce664f2..283c4f1 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -915,7 +915,6 @@ sub selected_size { #- compute installed flags for all packages in depslist. sub compute_installed_flags { my ($urpm, $db) = @_; - my %sizes; #- first pass to initialize flags installed and upgrade for all packages. foreach (@{$urpm->{depslist}}) { @@ -926,8 +925,6 @@ sub compute_installed_flags { #- second pass to set installed flag and clean upgrade flag according to installed packages. $db->traverse(sub { my ($p) = @_; - #- remember sizes of each package. - $sizes{$p->name} += $p->size; #- compute flags. foreach (keys %{$urpm->{provides}{$p->name} || {}}) { my $pkg = $urpm->{depslist}[$_]; @@ -937,8 +934,6 @@ sub compute_installed_flags { $pkg->flag_upgrade and $pkg->set_flag_upgrade($pkg->compare_pkg($p) > 0); } }); - - \%sizes; } sub compute_flag { -- cgit v1.2.1