diff options
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 1 |
1 files changed, 1 insertions, 0 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)) }; }; |