From 914c6af22c2783359e593eb1a88bdbb7a1202da0 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 18 Oct 1999 17:26:46 +0000 Subject: *** empty log message *** --- perl-install/pkgs.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/pkgs.pm') 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; -- cgit v1.2.1