diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-08-12 13:34:19 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-08-12 13:34:19 +0000 |
| commit | 4b80be8e2ef75bfa9d9dbe89a3c2575abe041ca1 (patch) | |
| tree | 14940eac4636e3333e15faf43eddf1222baebb36 /URPM | |
| parent | 4a2697eb846739d81ae19d66afe908fdad246fbc (diff) | |
| download | perl-URPM-4b80be8e2ef75bfa9d9dbe89a3c2575abe041ca1.tar perl-URPM-4b80be8e2ef75bfa9d9dbe89a3c2575abe041ca1.tar.gz perl-URPM-4b80be8e2ef75bfa9d9dbe89a3c2575abe041ca1.tar.bz2 perl-URPM-4b80be8e2ef75bfa9d9dbe89a3c2575abe041ca1.tar.xz perl-URPM-4b80be8e2ef75bfa9d9dbe89a3c2575abe041ca1.zip | |
0.60-6mdk
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Resolve.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index fdac138..877ac09 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -540,7 +540,7 @@ sub compute_installed_flags { $db->traverse(sub { my ($p) = @_; #- keep mind of sizes of each packages. - $sizes{join '-', ($p->fullname)[0..2]} = $p->size; + $sizes{$p->name} += $p->size; #- compute flags. foreach (keys %{$urpm->{provides}{$p->name} || {}}) { my $pkg = $urpm->{depslist}[$_]; |