fix

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 {