[dpkg] 14/28: test: Consider *.PL also to be perl files

[Mattia Rizzolo]

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

mattia pushed a commit to branch master
in repository dpkg.

commit d6ba39af48a8c8eadc1b1542fcd6db0edf2dbe7f
Author: Guillem Jover <guillem at debian.org>
Date:   Sun Oct 29 18:18:39 2017 +0100

    test: Consider *.PL also to be perl files
---
 debian/changelog     | 1 +
 scripts/Test/Dpkg.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 85921f8..96cb317 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -49,6 +49,7 @@ dpkg (1.19.1) UNRELEASED; urgency=medium
   * Test suite:
     - Skip Dpkg::OpenPGP test if gpg is not present.
     - Check POD in all perl scripts.
+    - Consider *.PL also to be perl files.
 
   [ Updated programs translations ]
   * Dutch (Frans Spiesschaert). Closes: #881401
diff --git a/scripts/Test/Dpkg.pm b/scripts/Test/Dpkg.pm
index 1b1a5d6..f0a73f8 100644
--- a/scripts/Test/Dpkg.pm
+++ b/scripts/Test/Dpkg.pm
@@ -65,7 +65,7 @@ sub test_get_perl_dirs
 
 sub all_perl_files
 {
-    my $filter = shift // qr/\.(?:pl|pm|t)$/;
+    my $filter = shift // qr/\.(?:PL|pl|pm|t)$/;
     my @files;
     my $scan_perl_files = sub {
         push @files, $File::Find::name if m/$filter/;

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