summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 9f6203764..61f367f3f 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -597,7 +597,7 @@ sub installPackages {
gtknew('Image', file_ref => \$advertising_image, show_ref => \$show_advertising),
]));
- my $progress_total = int64(0);
+ my $progress_total = 0;
$box->pack_end(gtkshow(gtknew('VBox', border_width => 7, spacing => 3, children_loose => [
gtknew('ScrolledWindow', child => $pkg_log_widget,
hide_ref => \$show_advertising, height => 250, to_bottom => 1),
@@ -656,9 +656,9 @@ sub installPackages {
my $dtime = time() - $o->{install_start_time};
my $ratio =
- $total_size == 0 ? int64(0) :
+ $total_size == 0 ? 0 :
install::pkgs::size2time($current_total_size + $amount, $total_size) / install::pkgs::size2time($total_size, $total_size);
- $ratio >= 1 and $ratio = int64(1);
+ $ratio >= 1 and $ratio = 1;
my $total_time = $ratio ? $dtime / $ratio : time();
gtkval_modify(\$progress_total, $ratio);