summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-30 14:25:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-30 14:25:24 +0000
commit816ac124bf481cb48f0b6cfbb170ab194ac3450c (patch)
tree03752e751a9dbf08b9911f27df4b2d92422175ae /perl-install
parent614fceef66cf52fae3f05d65e98b930e85c2ae8c (diff)
downloaddrakx-816ac124bf481cb48f0b6cfbb170ab194ac3450c.tar
drakx-816ac124bf481cb48f0b6cfbb170ab194ac3450c.tar.gz
drakx-816ac124bf481cb48f0b6cfbb170ab194ac3450c.tar.bz2
drakx-816ac124bf481cb48f0b6cfbb170ab194ac3450c.tar.xz
drakx-816ac124bf481cb48f0b6cfbb170ab194ac3450c.zip
if_ is *not* short-circuit
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index add6a2ca4..b4c6ecf0c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -850,7 +850,7 @@ sub new {
'MagicWindow',
title => $title || '',
pop_it => $o->{pop_it},
- if_($::isInstall, banner => Gtk2::Banner->new($icon, $title)),
+ $::isInstall ? (banner => Gtk2::Banner->new($icon, $title)) : (),
child => gtknew('VBox'),
modal => $grab || $o->{grab} || $o->{modal},
if_(!$::isInstall, icon_no_error => wm_icon()),