From 680a22985ade4719c431cf2c43daed9eafd3bd4e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 5 Nov 1999 22:54:25 +0000 Subject: no_comment --- perl-install/pkgs.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/pkgs.pm') 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) = @_; -- cgit v1.2.1