diff options
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index f3ae0a705..c0658063b 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -655,9 +655,9 @@ sub installPackages { my $dtime = time() - $o->{install_start_time}; my $ratio = - $total_size == 0 ? 0 : + $total_size == 0 ? int64(0) : install::pkgs::size2time($current_total_size + $amount, $total_size) / install::pkgs::size2time($total_size, $total_size); - $ratio >= 1 and $ratio = 1; + $ratio >= 1 and $ratio = int64(1); my $total_time = $ratio ? $dtime / $ratio : time(); gtkval_modify(\$progress_total, $ratio); |