From 47b67c0b160fbece1018713741949194722ab7a0 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 6 Sep 2002 11:38:12 +0000
Subject: fixed excesive reduction of size.

---
 perl-install/pkgs.pm | 6 +++---
 1 file 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;
-- 
cgit v1.2.1