From ce738e1c2273b2a3bbc600b2753c1e10d7a1b1b2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 5 Feb 2005 11:00:37 +0000
Subject: \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

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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