diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-05 11:00:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-05 11:00:37 +0000 |
| commit | ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2 (patch) | |
| tree | 378e9d13f8c92e56e953a711554cad52387111a1 | |
| parent | 45e873af37a0d2389feb0f5dcccba71408775956 (diff) | |
| download | drakx-ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2.tar drakx-ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2.tar.gz drakx-ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2.tar.bz2 drakx-ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2.tar.xz drakx-ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2.zip | |
\w can match non-ascii characters, so expanding it (bugzilla #13432). It would be better to remove accents, but i don't know how to do it easily
| -rw-r--r-- | perl-install/any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 13bd1fe67..f50ec3bf4 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -621,7 +621,7 @@ sub ask_user_one { callbacks => { focus_out => sub { if ($_[0] eq '0') { - $u->{name} ||= lc first($u->{realname} =~ /([\w-]+)/); + $u->{name} ||= lc first($u->{realname} =~ /([a-z0-9_-]+)/); } }, complete => sub { $u->{name} ? &$verif : 0 }, |