summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGuillem Jover <guillem@debian.org>2017-10-29 18:18:39 +0100
committerGuillem Jover <guillem@debian.org>2018-01-16 10:55:30 +0100
commitd6ba39af48a8c8eadc1b1542fcd6db0edf2dbe7f (patch)
tree86970564a0f0b429e1aeae7c60865c99af031f9c
parent11e20af76b831cb569950c341cf78c55d7ad9a00 (diff)
downloaddpkg-d6ba39af48a8c8eadc1b1542fcd6db0edf2dbe7f.tar.gz
test: Consider *.PL also to be perl files
-rw-r--r--debian/changelog1
-rw-r--r--scripts/Test/Dpkg.pm2
2 files changed, 2 insertions, 1 deletions
diff --git a/debian/changelog b/debian/changelog
index 85921f820..96cb3175a 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 1b1a5d67e..f0a73f8af 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/;