From 31fb83d60f5f6d72d444ab04b8cbf1e4ce1b7ba0 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Mon, 6 Sep 1999 20:49:44 +0000
Subject: better

---
 perl-install/install_steps_interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 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 8696dfba0..8da801a2f 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -448,7 +448,7 @@ sub addUser($) {
 	  {val => \$u->{shell}, list => \@shells, not_edit => !$::expert},
         ],
         focus_out => sub {
-	    $u{name} = lc first($u{realname} =~ /(\w+)/) if $_[0] eq 0;
+	    $u->{name} = lc first($u->{realname} =~ /(\w+)/) if $_[0] eq 0;
 	},
         complete => sub {
 	    $u->{password} eq $u->{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,3);
-- 
cgit v1.2.1