Bug 250080: Fix regression causing blank regexp to make all users group members

r=erik, justdave
a=justdave

diff --git a/editgroups.cgi b/editgroups.cgi
index 4390b5d4463e5cf8c677aa33800f68d6d670eb04..1b2f0d3df613b583f4426e082dfee61e6e7cbb95 100755 (executable)
--- a/editgroups.cgi
+++ b/editgroups.cgi
@@ -64,7 +64,7 @@ sub RederiveRegexp ($$)
                                 AND grant_type = ? and isbless = 0");
     $sth->execute();
     while (my ($uid, $login) = $sth->fetchrow_array()) {
-        if ($login =~ m/$regexp/i)
+        if (($regexp =~ /\S+/) && ($login =~ m/$regexp/i))
         {
             $sthadd->execute($uid, $gid, GRANT_REGEXP);
         } else {