diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 3 |
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 { |