aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-11 06:58:44 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-11 06:58:44 +0000
commit4f234000a25c81bd00c2954adf2eef138cf08d7d (patch)
tree750370a107aa62d8f6b173d375a18f3d4d12930b
parent51baecaae01ffbb003036c46e5bcc092477f93a3 (diff)
downloadperl-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.pm5
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 {