aboutsummaryrefslogtreecommitdiffstats
path: root/lib/CatDap/Controller
diff options
context:
space:
mode:
authorMichael Scherer <misc@mageia.org>2011-07-21 16:50:34 +0000
committerMichael Scherer <misc@mageia.org>2011-07-21 16:50:34 +0000
commit58cc2964a962b537e3d856775b9e451c65e10516 (patch)
treec0f9b0b515b6d9f8748976c9b28dbb92399d5a28 /lib/CatDap/Controller
parentf40b65c3e1026f5cb96f705a92481ac38cb4c26c (diff)
downloadidentity-58cc2964a962b537e3d856775b9e451c65e10516.tar
identity-58cc2964a962b537e3d856775b9e451c65e10516.tar.gz
identity-58cc2964a962b537e3d856775b9e451c65e10516.tar.bz2
identity-58cc2964a962b537e3d856775b9e451c65e10516.tar.xz
identity-58cc2964a962b537e3d856775b9e451c65e10516.zip
fix the order of the regexp, as test complain
Diffstat (limited to 'lib/CatDap/Controller')
-rw-r--r--lib/CatDap/Controller/admin.pm2
1 files changed, 1 insertions, 1 deletions
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');
}