summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-05 11:00:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-05 11:00:37 +0000
commitce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2 (patch)
tree378e9d13f8c92e56e953a711554cad52387111a1 /perl-install
parent45e873af37a0d2389feb0f5dcccba71408775956 (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
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 },