lintian: r1117 - trunk/lib

[rra@debian.org]

Author: rra
Date: 2008-01-05 19:57:07 +0100 (Sat, 05 Jan 2008)
New Revision: 1117

Modified:
   trunk/lib/Spelling.pm
Log:
Be more conservative about what punctuation to strip when looking for
capitalization errors.  We don't want to trigger on quoted package
names, Perl modules, and similar cases.


Modified: trunk/lib/Spelling.pm
===================================================================
--- trunk/lib/Spelling.pm	2008-01-05 18:54:24 UTC (rev 1116)
+++ trunk/lib/Spelling.pm	2008-01-05 18:57:07 UTC (rev 1117)
@@ -371,7 +371,7 @@
     my ($tag, $text, $filename) = @_;
 
     for my $word (split(/\s+/, $text)) {
-        $word =~ s/(^\')|[\"().,?!:;]+|(\'\z)//g;
+        $word =~ s/^\(|[).,?!:;]+$//g;
         if (exists $CORRECTIONS_CASE{$word}) {
             _tag($tag, $filename, $word, $CORRECTIONS_CASE{$word});
             next;