summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 6602acf90..b83655401 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -69,8 +69,12 @@ sub selectedSize {
$size;
}
+sub int64_to_float { sprintf("%.2f", $_[0])*1 }
+
sub size2time {
my ($x, $max) = @_;
+ $x = int64_to_float($x);
+ $max = int64_to_float($max);
my $A = 7e9;
my $limit = min($max * 3 / 4, 9e8);
if ($x < $limit) {