summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-18 17:26:46 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-18 17:26:46 +0000
commit914c6af22c2783359e593eb1a88bdbb7a1202da0 (patch)
tree872a256c20780d64c6b4d09dc32bd238bbb62a25 /perl-install/pkgs.pm
parent0e4f05d46881f2bb726eac3580ae783f62d45015 (diff)
downloaddrakx-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.pm6
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;