Changeset 87 for all-keywords/trunk/all-keywords.pl

Timestamp:

06/16/05 13:22:19 (4 years ago)

Author:

ogawa

Message:

Fix a regex bug for split_keywords.

Files:

• all-keywords/trunk/all-keywords.pl (modified) (1 diff)

all-keywords/trunk/all-keywords.pl

@@ -60 +60 @@
     $string = lc $string unless $case_sensitive;
 
-    # keywords w/o whitespaces
-    return split(/\s+/, $string) unless $string =~ m/[[]"';,|]?/;
-
-    # keywords w/ whitespaces
+    # keywords separated by whitespaces
+    return split(/\s+/, $string) unless $string =~ m/[\[\]"';,|]/;
+
+    # keywords separated by non-whitespaces
     while ($string =~ m/(\[[^]]+\]|"[^"]+"|'[^']+'|[^;,|]+)/g) {
         my $keyword = $1;