summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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) = @_;