From d6ba39af48a8c8eadc1b1542fcd6db0edf2dbe7f Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Sun, 29 Oct 2017 18:18:39 +0100 Subject: test: Consider *.PL also to be perl files --- scripts/Test/Dpkg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scripts/Test') 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/; -- cgit v1.2.3