Try longst prefixes first, else lib/CPAN may match lib/CPANPLUS/... and similar.

1 files changed, 7 insertions, 1 deletions

diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm
index 5cc9ebdff0..e5dde3c429 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;
 	    @ToDo{@ToDo} = ();
 
-	    for my $pat (keys %ModuleByPat) {
+	    for my $pat (@OrderedModuleByPat) {
 		last unless keys %ToDo;
 		if (-d $pat) {
 		    my @Done;