summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-18 14:02:39 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-18 14:02:39 +0000
commit8be33442197d3e14066399b312e41c47ef99341b (patch)
tree11e6b4cbddb9c880171cac5bfa87c5f53f90bf47 /perl-install
parentd5398d16525faf667da6bafb153cfff0f6189428 (diff)
downloaddrakx-8be33442197d3e14066399b312e41c47ef99341b.tar
drakx-8be33442197d3e14066399b312e41c47ef99341b.tar.gz
drakx-8be33442197d3e14066399b312e41c47ef99341b.tar.bz2
drakx-8be33442197d3e14066399b312e41c47ef99341b.tar.xz
drakx-8be33442197d3e14066399b312e41c47ef99341b.zip
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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
1 files changed, 1 insertions, 1 deletions
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);