Allow whitespace to be used to separate keywords.

diff --git a/buglist.cgi b/buglist.cgi
index 86fad102ed65f39fc84874c1af255caf7114f62f..27e67e39000af342a3d0a9ce0e3fcbeac3511628 100755 (executable)
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -301,8 +301,11 @@ if (defined $::FORM{'sql'}) {
 if ($::FORM{'keywords'}) {
     GetVersionTable();
     my @list;
-    foreach my $v (split(',', $::FORM{'keywords'})) {
-        my $id = $::keywordsbyname{trim($v)};
+    foreach my $v (split(/[\s,]+/, $::FORM{'keywords'})) {
+        if ($v eq '') {
+            next;
+        }
+        my $id = $::keywordsbyname{$v};
         if ($id) {
             push(@list, "keywords.keywordid = $id");
         } else {

diff --git a/process_bug.cgi b/process_bug.cgi
index bc7e2fcbc7fad76d0221bfa93c5cfb867dbbc2a1..5016d5b8addf09cc84beac1c9203cb2f6601c586 100755 (executable)
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -400,8 +400,10 @@ my @keywordlist;
 my %keywordseen;
 
 if ($::FORM{'keywords'}) {
-    foreach my $keyword (split(/,/, $::FORM{'keywords'})) {
-        $keyword = trim($keyword);
+    foreach my $keyword (split(/[\s,]+/, $::FORM{'keywords'})) {
+        if ($keyword eq '') {
+            next;
+        }
         my $i = $::keywordsbyname{$keyword};
         if (!$i) {
             print "Unknown keyword named <code>$keyword</code>.\n";