In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8cf77941f2751a20a52ac4bbbcff354f82ac4c91?hp=ee56566fc6aeac4fd679bd70846592145de67881>
- Log ----------------------------------------------------------------- commit 8cf77941f2751a20a52ac4bbbcff354f82ac4c91 Author: Nicholas Clark <[email protected]> Date: Thu Jul 30 21:41:14 2009 +0100 Try longst prefixes first, else lib/CPAN may match lib/CPANPLUS/... and similar. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pm | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm index 5cc9ebd..e5dde3c 100644 --- a/Porting/Maintainers.pm +++ b/Porting/Maintainers.pm @@ -220,13 +220,19 @@ sub files_to_modules { if (@ToDo) { # Try prefix matching. + # Need to try longst prefixes first, else lib/CPAN may match + # lib/CPANPLUS/... and similar + + my @OrderedModuleByPat + = sort {length $b <=> length $a} keys %ModuleByPat; + # Remove trailing slashes. for (@ToDo) { s|/$|| } my %ToDo; @to...@todo} = (); - for my $pat (keys %ModuleByPat) { + for my $pat (@OrderedModuleByPat) { last unless keys %ToDo; if (-d $pat) { my @Done; -- Perl5 Master Repository
