[pkg-perl-tools] 01/01: Move usr-lib-perl5 lintian check to lintian proper

[Axel Beckert]

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

abe pushed a commit to branch ppt-lc-mover
in repository pkg-perl-tools.

commit 4a5a66fc41af865092394f17d11fd664d28ff8b3
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Thu Aug 13 22:59:53 2015 +0200

    Move usr-lib-perl5 lintian check to lintian proper
---
 debian/changelog                           |  4 +--
 lintian/checks/pkg-perl/usr-lib-perl5.desc | 14 ---------
 lintian/checks/pkg-perl/usr-lib-perl5.pm   | 50 ------------------------------
 3 files changed, 2 insertions(+), 66 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 0f61edc..2b55740 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -3,8 +3,8 @@ pkg-perl-tools (0.23) UNRELEASED; urgency=medium
   [ Axel Beckert ]
   * Fix patchedit to not expect a file in $PATH as $EDITOR but to support
     $EDITOR to contain commandline options.
-  * Move application-not-library, modulebuild, and no-perl-modules lintian
-    checks to lintian proper.
+  * Move application-not-library, modulebuild, no-perl-modules, and
+    usr-lib-perl5 lintian checks to lintian proper.
   * Rewrite module-name check (tag no-module-name-in-description) as
     binary check and integrate it into lintian's description check as tag
     perl-module-name-not-mentioned-in-description.
diff --git a/lintian/checks/pkg-perl/usr-lib-perl5.desc b/lintian/checks/pkg-perl/usr-lib-perl5.desc
deleted file mode 100644
index 71c5866..0000000
--- a/lintian/checks/pkg-perl/usr-lib-perl5.desc
+++ /dev/null
@@ -1,14 +0,0 @@
-Check-Script: pkg-perl/usr-lib-perl5
-Author: Damyan Ivanov <dmn at debian.org>
-Type: source
-Info: check for usr/lib/perl5 in debian/*
-Needs-Info: unpacked
-
-Tag: usr-lib-perl5-mentioned
-Severity: important
-Certainty: possible
-Info: As of Perl 5.20, the vendorarch directory is /usr/lib/<triplet>/perl5,
- but this package still uses usr/lib/perl5 in some of the files under debian/.
- Please replace that with the value of $Config{vendorarch} configuration
- parameter, e.g.
-  $(shell perl -MConfig -wE'say substring($$Config{vendorarch},1)')
diff --git a/lintian/checks/pkg-perl/usr-lib-perl5.pm b/lintian/checks/pkg-perl/usr-lib-perl5.pm
deleted file mode 100644
index e62cc8e..0000000
--- a/lintian/checks/pkg-perl/usr-lib-perl5.pm
+++ /dev/null
@@ -1,50 +0,0 @@
-# pkg-perl/usr-lib-perl5 -- lintian check script for checking for mentions of usr/lib/perl5 in debian/* -*- perl -*-
-#
-# Copyright © 2013 Niels Thykier <niels at thykier.net>
-# Copyright © 2013 gregor herrmann <gregoa at debian.org>
-# Copyright © 2013-2014 Axel Beckert <abe at debian.org>
-# Copyright © 2014 Damyan Ivanov <dmn at debian.org>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, you can find it on the World Wide
-# Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
-# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
-# MA 02110-1301, USA.
-
-package Lintian::pkg_perl::usr_lib_perl5;
-
-use strict;
-use warnings;
-
-use Lintian::Tags qw(tag);
-use Lintian::Util qw(is_ancestor_of);
-use File::Basename qw(basename);
-
-sub run {
-    my ( $pkg, $type, $info, $proc, $group ) = @_;
-
-    my $d = $info->index_resolved_path("debian/");
-    for my $f ($d->children) {
-        my $short = $f->basename();
-        next if $short eq 'changelog';
-        # Skip symlinks and other nasty stuff
-        next unless $f->is_file && $f->is_open_ok;
-        my $contents = $f->file_contents;
-        # ignore comments
-        $contents =~ s/#.*$//m;
-        tag( 'usr-lib-perl5-mentioned', $short )
-            if $contents =~ m{usr/lib/perl5};
-    }
-}
-
-1;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git