From 2ad464a9746bf4274bf52b495c272cef50cce308 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 12 Dec 2016 15:27:42 +0100 Subject: make sure progress_total is int64 (mga#19895) Else gtkval_modify() would complain the ref changes from eg 'SCALAR(0xbd2aa38)' to 'REF(0xbd2aa38)' Thus enables i586 install to go on Though "Time remaining" looks bogus... --- perl-install/install/steps_gtk.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index c0658063b..9f6203764 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -597,6 +597,7 @@ sub installPackages { gtknew('Image', file_ref => \$advertising_image, show_ref => \$show_advertising), ])); + my $progress_total = int64(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), @@ -605,7 +606,7 @@ sub installPackages { N("Time remaining:"), gtknew('Label', text_ref => \ (my $msg_time_remaining = N("(estimating...)"))), ]), - gtknew('VBox', children_centered => [ gtknew('ProgressBar', fraction_ref => \ (my $progress_total), height => 25) ]), + gtknew('VBox', children_centered => [ gtknew('ProgressBar', fraction_ref => \$progress_total, height => 25) ]), gtknew('HSeparator'), gtknew('HButtonBox', spacing => 0, layout => 'edge', children_loose => [ if_($release_notes, $rel_notes), -- cgit v1.2.1