diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-05 22:54:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-05 22:54:25 +0000 |
| commit | 680a22985ade4719c431cf2c43daed9eafd3bd4e (patch) | |
| tree | be13b6cba642cb168425d7de4a19ab934a111af1 /perl-install/pkgs.pm | |
| parent | 4b3042e3c70ac231a17c33e0527bf3c2afc2d376 (diff) | |
| download | drakx-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.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) = @_; |