[libconfig-model-dpkg-perl] 06/13: fill blanks: apply more specific patterns first

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 70c5814be3678c46efe6fd8fa5ce20b3c69485d2
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Feb 7 15:58:31 2016 +0100

    fill blanks: apply more specific patterns first
---
 lib/Dpkg/Copyright/Scanner.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index 4af2596..a9e7d72 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -576,7 +576,7 @@ sub __load_fill_blank_data ($current_dir) {
 
 sub __get_fill_blank ($fbd,$file) {
 
-    foreach my $path (sort keys %$fbd) {
+    foreach my $path (reverse sort keys %$fbd) {
         if ($file =~ m(^$path)) {
             $fbd->{$path}{used} = 1;
             return $fbd->{$path};
@@ -682,6 +682,10 @@ path. I.e. C<share/websockify/> pattern will match
 C<share/websockify/foo.rb> but will not match
 C<web/share/websockify/foo.rb>.
 
+Patterns are tried in reversed sorted order. I.e. the data attached to
+more specific path (e.g. C<3rdparty/foo/blah.c>) are applied before
+more generic patterns (e.g. C<3rdparty/foo/>
+
 The C<license> key must contain a license short name as returned by
 C<license_check>.
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git