From a692fa79263096cdb2da1cbd7968058742abbc69 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 7 Nov 2013 17:32:41 +0100
Subject: (installPackages) initialize fraction to 0

Gtk3 doesn't accept default value for Gtk2::ProgressBar->set_fraction()
---
 perl-install/mygtk3.pm | 1 +
 1 file changed, 1 insertion(+)

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->();
-- 
cgit v1.2.1