diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install/NEWS | 2 | ||||
-rw-r--r-- | perl-install/install/pkgs.pm | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index b26d09585..78a54736e 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix progress bar on i586 (mga#19930) + Version 17.67 - 13 December 2016 - fix a crash introduced in 17.66 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) { |