diff options
author | Francois Pons <fpons@mandriva.com> | 1999-10-18 17:26:46 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 1999-10-18 17:26:46 +0000 |
commit | 914c6af22c2783359e593eb1a88bdbb7a1202da0 (patch) | |
tree | 872a256c20780d64c6b4d09dc32bd238bbb62a25 /perl-install/pkgs.pm | |
parent | 0e4f05d46881f2bb726eac3580ae783f62d45015 (diff) | |
download | drakx-backup-do-not-use-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar drakx-backup-do-not-use-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar.gz drakx-backup-do-not-use-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar.bz2 drakx-backup-do-not-use-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar.xz drakx-backup-do-not-use-914c6af22c2783359e593eb1a88bdbb7a1202da0.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r-- | perl-install/pkgs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index eb72a1bf1..e12d2b4b3 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -2,7 +2,7 @@ package pkgs; use diagnostics; use strict; -use vars qw(*LOG $size_correction_ratio); +use vars qw(*LOG); use common qw(:common :file :functional); use install_any; @@ -12,8 +12,6 @@ use fs; use lang; use c; -$size_correction_ratio = 1.04; - my @skip_list = qw( XFree86-8514 XFree86-AGX XFree86-Mach32 XFree86-Mach64 XFree86-Mach8 XFree86-Mono XFree86-P9000 XFree86-S3 XFree86-S3V XFree86-SVGA XFree86-W32 XFree86-I128 @@ -23,6 +21,8 @@ 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. + sub Package { my ($packages, $name) = @_; $packages->{$name} or log::l("unknown package `$name'") && undef; |