Bug 970184: "possible duplicates" shouldn't truncate words at the first non-word...

r=dkl, a=glob

diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index e981eb800ca7a9aab8a76b756ebb4128c2c856af..beb756da54dc4e4661b60e530fa967f8bf24f6c7 100644 (file)
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -511,8 +511,10 @@ sub possible_duplicates {
     my $dbh = Bugzilla->dbh;
     my $user = Bugzilla->user;
     my @words = split(/[\b\s]+/, $short_desc || '');
-    # Exclude punctuation from the array.
-    @words = map { /(\w+)/; $1 } @words;
+    # Remove leading/trailing punctuation from words
+    foreach my $word (@words) {
+        $word =~ s/(?:^\W+|\W+$)//g;
+    }
     # And make sure that each word is longer than 2 characters.
     @words = grep { defined $_ and length($_) > 2 } @words;