[libconfig-model-dpkg-perl] 06/08: improve split copyright (Closes: #862368)

[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 62390aa08f46d872c3e3361f62b57265011034ad
Author: Dominique Dumont <dod at debian.org>
Date:   Sat May 13 09:44:22 2017 +0200

    improve split copyright (Closes: #862368)
    
    require that copyright years begins with at least 2 numbers
---
 lib/Dpkg/Copyright/Scanner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index e87577b..ec8b675 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -340,7 +340,7 @@ sub scan_files ( %args ) {
 }
 
 sub __split_copyright ($c) {
-    my ($years,$owner) = $c =~ /([\s,\d-]+)(.*)/;
+    my ($years,$owner) = $c =~ /^(\d\d[\s,\d-]+)(.*)/;
     # say "undef year in $c" unless defined $years;
     return unless defined $years;
     my @data = split /(?<=\d)[,\s]+/, $years;

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