summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/pkgs.pm4
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) {