summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-19 15:55:39 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-19 15:55:39 +0000
commitd59b47aea0e5e97536e0cc0d8663ba27bbf8f185 (patch)
treecb487267ac7d89833c777067039f011b7e2e2e86 /perl-install/pkgs.pm
parentf437e5f69a3fc892a6db36e0b9e9d876b1897a45 (diff)
downloaddrakx-d59b47aea0e5e97536e0cc0d8663ba27bbf8f185.tar
drakx-d59b47aea0e5e97536e0cc0d8663ba27bbf8f185.tar.gz
drakx-d59b47aea0e5e97536e0cc0d8663ba27bbf8f185.tar.bz2
drakx-d59b47aea0e5e97536e0cc0d8663ba27bbf8f185.tar.xz
drakx-d59b47aea0e5e97536e0cc0d8663ba27bbf8f185.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 4 insertions, 2 deletions
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) {