From 58cc2964a962b537e3d856775b9e451c65e10516 Mon Sep 17 00:00:00 2001
From: Michael Scherer <misc@mageia.org>
Date: Thu, 21 Jul 2011 16:50:34 +0000
Subject: fix the order of the regexp, as test complain

---
 lib/CatDap/Controller/admin.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/CatDap/Controller')

diff --git a/lib/CatDap/Controller/admin.pm b/lib/CatDap/Controller/admin.pm
index dfea627..e8771e6 100644
--- a/lib/CatDap/Controller/admin.pm
+++ b/lib/CatDap/Controller/admin.pm
@@ -621,7 +621,7 @@ sub group_modify : Local {
     my $mesg;
 
     $c->detach('/admin/group') if $group eq '';
-    if ( $group !~ /^[\w\d- ]*$/ ) {
+    if ( $group !~ /^[-\w\d ]*$/ ) {
         push @errors, $c->loc('Group contains illegal characters');
         $c->detach('/admin/group');
     }
-- 
cgit v1.2.1