From 06ed40e4dab5e7b372a2de68a73698c6793bd516 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 Jul 2002 13:16:13 +0000
Subject: small regexp cleanup

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

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 6b0d22a9f..b8e5e54cc 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -789,7 +789,7 @@ sub ask_users {
 	      callbacks => {
 	          focus_out => sub {
 		      if ($_[0] eq 0) {
-			  $u->{name} ||= lc first($u->{realname} =~ /((\w|-)+)/);
+			  $u->{name} ||= lc first($u->{realname} =~ /([\w-]+)/);
 		      }
 		  },
 	          complete => $verif,
-- 
cgit v1.2.1