summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-07 18:43:32 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:16 +0100
commite33461f6d781c07c325db3a6d502f533d84ff095 (patch)
tree2fc9d28379965af6c31bd6d43fa0e71b21f44e43
parent4604550867df4dd5e2cea4fd5f934a037a6a9e97 (diff)
downloaddrakx-e33461f6d781c07c325db3a6d502f533d84ff095.tar
drakx-e33461f6d781c07c325db3a6d502f533d84ff095.tar.gz
drakx-e33461f6d781c07c325db3a6d502f533d84ff095.tar.bz2
drakx-e33461f6d781c07c325db3a6d502f533d84ff095.tar.xz
drakx-e33461f6d781c07c325db3a6d502f533d84ff095.zip
fix "undefined value for mandatory argument..."
-rw-r--r--perl-install/mygtk3.pm1
-rw-r--r--perl-install/services.pm2
2 files changed, 2 insertions, 1 deletions
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) = @_;