summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-19 11:34:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-19 11:34:48 +0000
commit19387c3a2965dd57c45e79affe1642d5518eff8d (patch)
tree5db94d9d441c137d409a90eedda5747e28c1bf77 /perl-install
parentdd18b7e93d51a216eef6e58ca1772a07e26e02d5 (diff)
downloaddrakx-19387c3a2965dd57c45e79affe1642d5518eff8d.tar
drakx-19387c3a2965dd57c45e79affe1642d5518eff8d.tar.gz
drakx-19387c3a2965dd57c45e79affe1642d5518eff8d.tar.bz2
drakx-19387c3a2965dd57c45e79affe1642d5518eff8d.tar.xz
drakx-19387c3a2965dd57c45e79affe1642d5518eff8d.zip
(ask_users): default icon "man"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4db66dbcd..2333cbd44 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -731,7 +731,7 @@ sub ask_users {
{ label => _("Password (again)"), val => \$u->{password2}, hidden => 1 },
{ label => _("Shell"), val => \$u->{shell}, list => [ shells($prefix) ], not_edit => !$::expert, advanced => 1 },
if_($security <= 3 && @icons,
- { label => _("Icon"), val => \$u->{icon}, list => \@icons, icon2f => sub { face2png($_[0], $prefix) }, format => \&translate },
+ { label => _("Icon"), val => \ ($u->{icon} ||= 'man'), list => \@icons, icon2f => sub { face2png($_[0], $prefix) }, format => \&translate },
),
],
);