summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-05 22:54:25 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-05 22:54:25 +0000
commit680a22985ade4719c431cf2c43daed9eafd3bd4e (patch)
treebe13b6cba642cb168425d7de4a19ab934a111af1 /perl-install/pkgs.pm
parent4b3042e3c70ac231a17c33e0527bf3c2afc2d376 (diff)
downloaddrakx-backup-do-not-use-680a22985ade4719c431cf2c43daed9eafd3bd4e.tar
drakx-backup-do-not-use-680a22985ade4719c431cf2c43daed9eafd3bd4e.tar.gz
drakx-backup-do-not-use-680a22985ade4719c431cf2c43daed9eafd3bd4e.tar.bz2
drakx-backup-do-not-use-680a22985ade4719c431cf2c43daed9eafd3bd4e.tar.xz
drakx-backup-do-not-use-680a22985ade4719c431cf2c43daed9eafd3bd4e.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 4c49d6a43..53fca5a99 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -21,7 +21,10 @@ hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers
hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb
);
-sub correctSize { (20471 - $_[0])*$_[0]/16258 } #- size correction in MB.
+my $A = 20471;
+my $B = 16258;
+sub correctSize { ($A - $_[0]) * $_[0] / $B } #- size correction in MB.
+sub invCorrectSize { $A / 2 - sqrt(sqr($A) - 4 * $B * $_[0]) / 2 }
sub Package {
my ($packages, $name) = @_;