summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 14:25:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 14:25:49 +0000
commit51d6259470fb1d02503a2c0de2c806026d87c396 (patch)
tree5c7671b3a9121c099648c82007f8615aaaa022c8 /perl-install/ugtk2.pm
parent823defcb7c1e66a5aafb9d94ca9c7ecef238f12c (diff)
downloaddrakx-backup-do-not-use-51d6259470fb1d02503a2c0de2c806026d87c396.tar
drakx-backup-do-not-use-51d6259470fb1d02503a2c0de2c806026d87c396.tar.gz
drakx-backup-do-not-use-51d6259470fb1d02503a2c0de2c806026d87c396.tar.bz2
drakx-backup-do-not-use-51d6259470fb1d02503a2c0de2c806026d87c396.tar.xz
drakx-backup-do-not-use-51d6259470fb1d02503a2c0de2c806026d87c396.zip
use if_() where possible (as reported by perl_checker)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 00b44ab1c..0e70d8136 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -248,7 +248,7 @@ sub gtktreeview_children {
sub create_pixbutton {
my ($label, $pix, $reverse_order) = @_;
- my @label_and_pix = (0, $label, $pix ? (0, $pix) : ());
+ my @label_and_pix = (0, $label, if_($pix, 0, $pix));
gtkadd(Gtk2::Button->new,
gtkpack_(Gtk2::HBox->new(0, 3),
1, "",
@@ -436,7 +436,7 @@ sub create_okcancel {
my $b1 = gtksignal_connect($w->{ok} = Gtk2::Button->new($ok), clicked => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk2->main_quit });
my $b2 = $cancel && gtksignal_connect($w->{cancel} = Gtk2::Button->new($cancel), clicked => $w->{cancel_clicked} || sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk2->main_quit });
$::isWizard and gtksignal_connect($w->{wizcancel} = Gtk2::Button->new(N("Cancel")), clicked => sub { die 'wizcancel' });
- my @l = grep { $_ } $::isWizard ? ($w->{wizcancel}, $::Wizard_no_previous ? () : $b2, $b1) : ($b1, $b2);
+ my @l = grep { $_ } $::isWizard ? ($w->{wizcancel}, if_(!$::Wizard_no_previous, $b2, $b1)) : ($b1, $b2);
push @l, map { gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } @other;
$_->can_default($::isWizard) foreach @l;