diff options
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 4 |
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) { |