summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 23:11:13 +0000
committerpad <pad@mandriva.com>1999-09-05 23:11:13 +0000
commitb1cae159ba301ce08f4b46371354f504eef3a38d (patch)
treed7405d5545e644e07d3468b1a160de373b0a5fcb /perl-install
parent0c77eeabed86bbe54662d435016d7290ffd74141 (diff)
downloaddrakx-b1cae159ba301ce08f4b46371354f504eef3a38d.tar
drakx-b1cae159ba301ce08f4b46371354f504eef3a38d.tar.gz
drakx-b1cae159ba301ce08f4b46371354f504eef3a38d.tar.bz2
drakx-b1cae159ba301ce08f4b46371354f504eef3a38d.tar.xz
drakx-b1cae159ba301ce08f4b46371354f504eef3a38d.zip
fix
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index dee757d8b..8e61ccdea 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -418,7 +418,7 @@ sub addUser($) {
$o->{user} ||= {};
$o->{user}{password2} ||= $o->{user}{password};
my $u = $o->{user};
- my @fields = qw(name password password2 realname);
+ my @fields = qw(realname name password password2);
my @shells = install_any::shells($o);
@@ -430,6 +430,7 @@ sub addUser($) {
{val => \$u->{shell}, list => \@shells, not_edit => !$::expert},
],
focus_out => sub {
+ print "int $_[0], $u->{name}, $u->{realname},\n";
($u->{name}) = $u->{realname} =~ /\U(\S+)/ if $_[0] eq 0;
},
complete => sub {