From d985ce0894028d2497ab840789877929d92f18a1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Nov 2013 12:39:03 +0100 Subject: prevent calling CheckButton->set_label() on undef value --- perl-install/ugtk3.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 630d25807..ea275e5ce 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -927,8 +927,8 @@ sub ask_browse_tree_info { ) ]), 0, Gtk3::HSeparator->new, 0, my $status = gtknew('Label'), - if_($common->{auto_deps}, - 0, gtknew('CheckButton', text => $common->{auto_deps}, active_ref => \$common->{state}{auto_deps}) + ($common->{auto_deps} ? + (0, gtknew('CheckButton', text => $common->{auto_deps}, active_ref => \$common->{state}{auto_deps})) : () ), 0, Gtk3::HSeparator->new, 0, my $box2 = gtknew('HBox', spacing => 10), -- cgit v1.2.1