summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-06 11:38:12 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-06 11:38:12 +0000
commit47b67c0b160fbece1018713741949194722ab7a0 (patch)
tree90b388fb836a6785a56c21561ef6b128841f25ec /perl-install
parent7e0e6b2550e0e0dafa9aafb0e3b0b826cc8519ad (diff)
downloaddrakx-47b67c0b160fbece1018713741949194722ab7a0.tar
drakx-47b67c0b160fbece1018713741949194722ab7a0.tar.gz
drakx-47b67c0b160fbece1018713741949194722ab7a0.tar.bz2
drakx-47b67c0b160fbece1018713741949194722ab7a0.tar.xz
drakx-47b67c0b160fbece1018713741949194722ab7a0.zip
fixed excesive reduction of size.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 4bfffca70..765890922 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -97,7 +97,7 @@ sub invCorrectSize { ($_[0] - $C) / $B }
sub selectedSize {
my ($packages) = @_;
my $size = 0;
- my (%skip_added, %skip_removed);
+ my %skip;
#- take care of packages selected...
foreach (@{$packages->{depslist}}) {
if ($_->flag_selected) {
@@ -105,14 +105,14 @@ sub selectedSize {
#- if a package is obsoleted with the same name it should
#- have been selected, so a selected new package obsoletes
#- all the old package.
- exists $skip_added{$_->name} and next; $skip_added{$_->name} = undef;
+ exists $skip{$_->name} and next; $skip{$_->name} = undef;
$size -= $packages->{sizes}{$_->name};
}
}
#- but remove size of package being obsoleted or removed.
foreach ((map { /(.*)\.[^\.]*$/ } keys %{$packages->{state}{obsoleted}}), keys %{$packages->{state}{ask_remove}}) {
my ($name) = /(.*)-[^\-]*-[^\-]*$/ or next;
- exists $skip_removed{$name} and next; $skip_removed{$name} = undef;
+ exists $skip{$name} and next; $skip{$name} = undef;
$size -= $packages->{sizes}{$name};
}
$size;