Bug 340350: 009bugwords.t barewords detection is imperfect - Patch by Frédéric...

diff --git a/t/009bugwords.t b/t/009bugwords.t
index bf3d91f26fa024d8ba7dd59f16c08d48b9c7aeb6..a4962f223b9fa4d1d0d60dd9393c9cadc68ba17f 100644 (file)
--- a/t/009bugwords.t
+++ b/t/009bugwords.t
@@ -68,7 +68,7 @@ foreach my $file (@testitems) {
         my $lineno = scalar(@lineno) + 1;
     
         # "a bug", "bug", "bugs"
-        if (grep /(a?[\s>]bugs?[\s.:;])/i, $text) {
+        if (grep /(a?[\s>]bugs?[\s.:;,])/i, $text) {
             # Exclude variable assignment.
             unless (grep /bugs =/, $text) {
                 push(@errors, [$lineno, $text]);