From 64361da5e7afc49574493d694069dd8a53e9c8c7 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Tue, 8 Feb 2005 07:56:07 +0000
Subject: Allow upper case letters in users' real names.

---
 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 f50ec3bf4..98720cd15 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} =~ /([a-z0-9_-]+)/);
+			  $u->{name} ||= lc first($u->{realname} =~ /([a-zA-Z0-9_-]+)/);
 		      }
 		  },
 	          complete => sub { $u->{name} ? &$verif : 0 },
-- 
cgit v1.2.1