From d59b47aea0e5e97536e0cc0d8663ba27bbf8f185 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 15:55:39 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 953e02837..35821e4a4 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -2,7 +2,7 @@ package pkgs;
 
 use diagnostics;
 use strict;
-use vars qw($fd);
+use vars qw($fd $size_correction_ratio);
 
 use common qw(:common :file :functional);
 use install_any;
@@ -12,6 +12,8 @@ use fs;
 use lang;
 use c;
 
+$size_correction_ratio = 1.04;
+
 1;
 
 
@@ -60,7 +62,7 @@ sub unselect($$;$) {
     return if defined $size && $size <= 0;
 
     #- garbage collect for circular dependencies
-    my $changed = 1;
+    my $changed = 0; #1;
     while ($changed) {
 	$changed = 0;
       NEXT: foreach my $p (grep { $_->{selected} > 0 && !$_->{base} } values %$packages) {
-- 
cgit v1.2.1