[lintian] 01/01: c/description.pm/perl-module-name-not-mentioned-in-description: Performance optimizations

[Axel Beckert <abe@deuxchevaux.org>]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch ppt-lc-mover
in repository lintian.

commit 9b155256cc17f49d9f170d967d135d64fe0f2c47
Author: Axel Beckert <abe@deuxchevaux.org>
Date:   Fri Aug 14 20:11:08 2015 +0200

    c/description.pm/perl-module-name-not-mentioned-in-description: Performance optimizations
    
    Signed-off-by: Axel Beckert <abe@deuxchevaux.org>
---
 checks/description.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/checks/description.pm b/checks/description.pm
index be9c958..0f2eaec 100644
--- a/checks/description.pm
+++ b/checks/description.pm
@@ -255,8 +255,6 @@ sub run {
         my @mod_path_elements = split(/-/, $mod);
         $mod = join('::', map {ucfirst} @mod_path_elements);
         my $mod_lc = lc($mod);
-        my $d = $info->field('description');
-        $d =~ s/[^\n]+\n//; # strip long description
 
         my $pm_found = 0;
         my $pmpath = join('/', @mod_path_elements).'.pm';
@@ -270,7 +268,7 @@ sub run {
         }
 
         tag 'perl-module-name-not-mentioned-in-description', $mod
-          if (lc($d) !~ /\Q$mod_lc\E/ and $pm_found);
+          if (index($mod_lc, lc($description)) < 0 and $pm_found);
     }
 
     return;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git