summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-08 11:14:58 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-08 11:14:58 +0000
commitc7ce6282bc6360e3106818c301c550523f7a1f7a (patch)
tree0c122786d23df1141f4f048a8052d32f3010915d /perl-install/install_steps_interactive.pm
parentfdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc (diff)
downloaddrakx-c7ce6282bc6360e3106818c301c550523f7a1f7a.tar
drakx-c7ce6282bc6360e3106818c301c550523f7a1f7a.tar.gz
drakx-c7ce6282bc6360e3106818c301c550523f7a1f7a.tar.bz2
drakx-c7ce6282bc6360e3106818c301c550523f7a1f7a.tar.xz
drakx-c7ce6282bc6360e3106818c301c550523f7a1f7a.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e4bb09f97..b2b42036c 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -451,7 +451,9 @@ sub addUser($) {
{val => \$u->{shell}, list => \@shells, not_edit => !$::expert},
],
focus_out => sub {
- $u->{name} = lc first($u->{realname} =~ /(\w+)/) if $_[0] eq 0;
+ if ($_[0] eq 0) {
+ $u->{name} = lc first($u->{realname} =~ /((\w|-)+)/);
+ }
},
complete => sub {
$u->{password} eq $u->{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,3);