diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 5 |
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) = @_; |