From 8be33442197d3e14066399b312e41c47ef99341b Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 18 Jan 2001 14:02:39 +0000 Subject: make sure no ratio above 1 can occur, still need to see why as it happens on install-abort-choices-install or install-abort-choices-fs-format(none)-choices-install --- perl-install/install_steps_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 332ec88ea..e9cafd60c 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -510,7 +510,7 @@ sub installPackages { $progress->update($_[2] ? $_[1] / $_[2] : 0); my $dtime = time() - $start_time; - my $ratio = $total_size ? ($_[1] + $current_total_size) / $total_size : 0; + my $ratio = $total_size ? ($_[1] + $current_total_size) / $total_size : 0; $ratio >= 1 and $ratio = 1; my $total_time = $ratio ? $dtime / $ratio : time(); $progress_total->update($ratio); -- cgit v1.2.1