summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-07 17:32:41 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:15 +0100
commita692fa79263096cdb2da1cbd7968058742abbc69 (patch)
treedab72cc1e069291a2c63e4b60a71ca6145c31ab4 /perl-install
parentf1efadafd12954cbc0b46148577690f5c4f93ec8 (diff)
downloaddrakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar
drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar.gz
drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar.bz2
drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar.xz
drakx-a692fa79263096cdb2da1cbd7968058742abbc69.zip
(installPackages) initialize fraction to 0
Gtk3 doesn't accept default value for Gtk2::ProgressBar->set_fraction()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk3.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 6c28c43ed..6e4c880d1 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -278,6 +278,7 @@ sub _gtk__ProgressBar {
}
if (my $fraction_ref = delete $opts->{fraction_ref}) {
+ $$fraction_ref ||= 0;
my $set = sub { $w->set_fraction($$fraction_ref) };
gtkval_register($w, $fraction_ref, $set);
$set->();