From b1cae159ba301ce08f4b46371354f504eef3a38d Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Sun, 5 Sep 1999 23:11:13 +0000
Subject: fix

---
 perl-install/install_steps_interactive.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

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 {
-- 
cgit v1.2.1