summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.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/ugtk.pm
parent823defcb7c1e66a5aafb9d94ca9c7ecef238f12c (diff)
downloaddrakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar.gz
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar.bz2
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar.xz
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.zip
use if_() where possible (as reported by perl_checker)
Diffstat (limited to 'perl-install/ugtk.pm')
-rw-r--r--perl-install/ugtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 3ec92e77f..4e7045835 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -112,7 +112,7 @@ sub gtkbuttonset {
sub create_pixbutton {
my ($label, $pix, $reverse_order) = @_;
- gtkadd(new Gtk::Button(), gtkpack_(new Gtk::HBox(0, 3), 1, "", $reverse_order ? (0, $label, $pix ? (0, $pix) : ()) : ($pix ? (0, $pix) : (), 0, $label), 1, ""));
+ gtkadd(new Gtk::Button(), gtkpack_(new Gtk::HBox(0, 3), 1, "", $reverse_order ? (0, $label, if_($pix, 0, $pix)) : (if_($pix, 0, $pix), 0, $label), 1, ""));
}
sub gtkentry {
@@ -137,7 +137,7 @@ sub gtkcolor {
sub gtkradio {
my $def = shift;
my $radio;
- map { $radio = new Gtk::RadioButton($_, $radio ? $radio : ());
+ map { $radio = new Gtk::RadioButton($_, if_($radio, $radio));
$radio->set_active($_ eq $def); $radio } @_;
}