In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7f58bf114cae6ec9e1ac6bd4261fcd1b71d7bf6c?hp=61228c762ad9b92b72c69a6753a41fe64fbf4fe0>
- Log ----------------------------------------------------------------- commit 7f58bf114cae6ec9e1ac6bd4261fcd1b71d7bf6c Author: Steve Hay <[email protected]> Date: Fri Aug 10 09:43:17 2012 +0100 Fix interpretation of empty list of EXCLUDED files in Maintainers.pl All files in a distro were wrongly reported as CPAN only if EXCLUDED was given as []. Fixed that, but really there is no need to specify EXCLUDED as [] anyway. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 1 - Porting/Maintainers.pm | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 5e97c24..8678774 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1381,7 +1381,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'dagolden', 'DISTRIBUTION' => 'DAGOLDEN/Parse-CPAN-Meta-1.4404.tar.gz', 'FILES' => q[cpan/Parse-CPAN-Meta], - 'EXCLUDED' => [], 'UPSTREAM' => 'cpan', }, diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm index 3e6697f..5f3c4d4 100644 --- a/Porting/Maintainers.pm +++ b/Porting/Maintainers.pm @@ -92,8 +92,9 @@ sub expand_glob { sub filter_excluded { my ($m, @files) = @_; + my $excluded = $Modules{$m}{EXCLUDED}; return @files - unless my $excluded = $Modules{$m}{EXCLUDED}; + unless $excluded and @$excluded; my ($pat) = map { qr/$_/ } join '|' => map { ref $_ ? $_ : qr/\b\Q$_\E$/ -- Perl5 Master Repository
