diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-13 12:39:03 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:18 +0100 |
| commit | d985ce0894028d2497ab840789877929d92f18a1 (patch) | |
| tree | a8e8651fe7daf79626160427d3ea83d08488018f /perl-install/ugtk3.pm | |
| parent | fa5f6f057d6e7960adbac97a824bc94b025ad00f (diff) | |
| download | drakx-d985ce0894028d2497ab840789877929d92f18a1.tar drakx-d985ce0894028d2497ab840789877929d92f18a1.tar.gz drakx-d985ce0894028d2497ab840789877929d92f18a1.tar.bz2 drakx-d985ce0894028d2497ab840789877929d92f18a1.tar.xz drakx-d985ce0894028d2497ab840789877929d92f18a1.zip | |
prevent calling CheckButton->set_label() on undef value
Diffstat (limited to 'perl-install/ugtk3.pm')
| -rw-r--r-- | perl-install/ugtk3.pm | 4 |
1 files 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), |