summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-12-12 15:27:42 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-12-12 15:35:22 +0100
commit2ad464a9746bf4274bf52b495c272cef50cce308 (patch)
tree9cf792aa9e1b50e22dbfd2de18b6672d22b636b5 /perl-install
parent0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10 (diff)
downloaddrakx-2ad464a9746bf4274bf52b495c272cef50cce308.tar
drakx-2ad464a9746bf4274bf52b495c272cef50cce308.tar.gz
drakx-2ad464a9746bf4274bf52b495c272cef50cce308.tar.bz2
drakx-2ad464a9746bf4274bf52b495c272cef50cce308.tar.xz
drakx-2ad464a9746bf4274bf52b495c272cef50cce308.zip
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...
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_gtk.pm3
1 files changed, 2 insertions, 1 deletions
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),