summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-16 13:18:31 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-16 13:18:31 +0000
commit4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce (patch)
tree28974a4161d8a464d59781d76ebe52f98a8bc210 /perl-install/pkgs.pm
parent70800fea4199313a755c9dda383941f30c3a572a (diff)
downloaddrakx-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar
drakx-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.gz
drakx-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.bz2
drakx-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.xz
drakx-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.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 46c52c229..e03dcc241 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -183,7 +183,7 @@ my $A = -1.922e-05;
my $B = 1.18411;
my $C = 23.2; #- doesn't take hdlist's into account as getAvailableSpace will do it.
sub correctSize { max($_[0], ($A * $_[0] + $B) * $_[0] + $C) } #- size correction in MB.
-sub invCorrectSize { min($_[0], (sqrt(sqr($B) + 4 * $A * ($_[0] - $C)) - $B) / 2 / $A) } #- size correction in MB.
+sub invCorrectSize { min($_[0], (sqrt(max(sqr($B) + 4 * $A * ($_[0] - $C), 0)) - $B) / 2 / $A) } #- size correction in MB.
sub selectedSize {
my ($packages) = @_;
@@ -995,8 +995,8 @@ sub install($$$;$$) {
install_any::getFile('XXX');
#- reset ftp handlers before forking, otherwise well ;-(
- require ftp;
- ftp::rewindGetFile();
+ #require ftp;
+ #ftp::rewindGetFile();
local (*INPUT, *OUTPUT); pipe INPUT, OUTPUT;
if (my $pid = fork()) {