diff options
author | Michael Scherer <misc@mageia.org> | 2011-07-21 16:50:34 +0000 |
---|---|---|
committer | Michael Scherer <misc@mageia.org> | 2011-07-21 16:50:34 +0000 |
commit | 58cc2964a962b537e3d856775b9e451c65e10516 (patch) | |
tree | c0f9b0b515b6d9f8748976c9b28dbb92399d5a28 /lib/CatDap/Controller | |
parent | f40b65c3e1026f5cb96f705a92481ac38cb4c26c (diff) | |
download | identity-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.pm | 2 |
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'); } |