From e33461f6d781c07c325db3a6d502f533d84ff095 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 7 Nov 2013 18:43:32 +0100
Subject: fix "undefined value for mandatory argument..."

---
 perl-install/mygtk3.pm   | 1 +
 perl-install/services.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index c5ab05f83..56ee74117 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -183,6 +183,7 @@ sub _gtk_any_Button {
     $w->set_relief(delete $opts->{relief}) if exists $opts->{relief};
 
     if (my $text_ref = delete $opts->{text_ref}) {
+	$$text_ref ||= '';
 	my $set = sub {
 	    eval { $w->set_label(may_apply($w->{format}, $$text_ref)) };
 	};
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 377e87b98..be85ab069 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -224,7 +224,7 @@ sub ask_standalone_gtk {
     ugtk3->import(qw(:wrappers :create));
 
     my $W = ugtk3->new(N("Services"));
-    my ($x, $y, $w_popup);
+    my ($x, $y, $w_popup) = (0, 0);
     my $nopop = sub { $w_popup and $w_popup->destroy; undef $w_popup };
     my $display = sub { 
 	my ($text) = @_;
-- 
cgit v1.2.1