diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-05-11 06:58:44 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-05-11 06:58:44 +0000 |
| commit | 4f234000a25c81bd00c2954adf2eef138cf08d7d (patch) | |
| tree | 750370a107aa62d8f6b173d375a18f3d4d12930b | |
| parent | 51baecaae01ffbb003036c46e5bcc092477f93a3 (diff) | |
| download | perl-URPM-4f234000a25c81bd00c2954adf2eef138cf08d7d.tar perl-URPM-4f234000a25c81bd00c2954adf2eef138cf08d7d.tar.gz perl-URPM-4f234000a25c81bd00c2954adf2eef138cf08d7d.tar.bz2 perl-URPM-4f234000a25c81bd00c2954adf2eef138cf08d7d.tar.xz perl-URPM-4f234000a25c81bd00c2954adf2eef138cf08d7d.zip | |
Remove the return value of compute_installed_flags, it's not used anywhere
| -rw-r--r-- | URPM/Resolve.pm | 5 |
1 files changed, 0 insertions, 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 { |