From 19387c3a2965dd57c45e79affe1642d5518eff8d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Sep 2001 11:34:48 +0000 Subject: (ask_users): default icon "man" --- perl-install/any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/any.pm') 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 }, ), ], ); -- cgit v1.2.1