From 9680a74c3cb9605cc8b5235fc7e82af5f48117e6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Jan 2000 17:30:17 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 83bc78676..8e3ecf63f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -48,6 +48,12 @@ my $B = 16258;
 sub correctSize { ($A - $_[0]) * $_[0] / $B } #- size correction in MB.
 sub invCorrectSize { $A / 2 - sqrt(max(0, sqr($A) - 4 * $B * $_[0])) / 2 }
 
+sub selectedSize {
+    my ($packages) = @_;
+    int (sum map { $_->{size} } grep { $_->{selected} } values %$packages) / sqr(1024);
+}
+sub correctedSelectedSize { correctSize(selectedSize($_[0])) }
+
 sub Package {
     my ($packages, $name) = @_;
     $packages->{$name} or log::l("unknown package `$name'") && undef;
-- 
cgit v1.2.1