From abcb9996d91012d3454736cd6363f5db3e0e82c7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 2 Aug 2012 15:05:30 +0200 Subject: (_gtk__Label) simplify --- perl-install/mygtk3.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 73520316e..e324513b4 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -414,7 +414,7 @@ sub _gtk__Label { if ($w) { $w->set_text(delete $opts->{text}) if exists $opts->{text}; } else { - $w = exists $opts->{text} ? Gtk3::Label->new(delete $opts->{text}) : Gtk3::Label->new; + $w = Gtk3::Label->new(delete $opts->{text}); $w->set_selectable(delete $opts->{selectable}) if exists $opts->{selectable}; $w->set_ellipsize(delete $opts->{ellipsize}) if exists $opts->{ellipsize}; $w->set_justify(delete $opts->{justify}) if exists $opts->{justify}; -- cgit v1.2.1