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 12b174a0fcac50970ad19c20482716d9389968b3
Author: Dominique Dumont <d...@debian.org>
Date:   Sat Dec 26 17:50:37 2015 +0100

    Raise a warning if copyright or license contains 'unknown'
---
 lib/Config/Model/models/Dpkg/Copyright/Content.pl     | 7 ++++++-
 lib/Config/Model/models/Dpkg/Copyright/FileLicense.pl | 3 +++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/Config/Model/models/Dpkg/Copyright/Content.pl 
b/lib/Config/Model/models/Dpkg/Copyright/Content.pl
index ec00055..5e2f34d 100644
--- a/lib/Config/Model/models/Dpkg/Copyright/Content.pl
+++ b/lib/Config/Model/models/Dpkg/Copyright/Content.pl
@@ -33,7 +33,12 @@ the Copyright field for a stanza covering both file A and 
file B need contain on
 The Copyright field may contain the original copyright statement copied 
exactly (including the word Copyright), or it can shorten the text, as long as 
it does not sacrifice information. Examples in this specification use both 
forms.',
         'mandatory' => '1',
         'type' => 'leaf',
-        'value_type' => 'string'
+        'value_type' => 'string',
+        'warn_if_match' => {
+          'UNKNOWN' => {
+            'msg' => 'Unknown copyright owner: please add correct value or 
remove the File entry.'
+          }
+        }
       },
       'License',
       {
diff --git a/lib/Config/Model/models/Dpkg/Copyright/FileLicense.pl 
b/lib/Config/Model/models/Dpkg/Copyright/FileLicense.pl
index 70b08b4..d470cad 100644
--- a/lib/Config/Model/models/Dpkg/Copyright/FileLicense.pl
+++ b/lib/Config/Model/models/Dpkg/Copyright/FileLicense.pl
@@ -104,6 +104,9 @@ $lic->move($old,$_) unless $text or $lic->defined($_);
 ',
             'msg' => 'Please use BSD-x-clause name, like BSD-3-clause'
           },
+          'UNKNOWN' => {
+            'msg' => 'Unknown license: please add correct value or remove the 
File entry.'
+          },
           '\\bMIT\\b' => {
             'fix' => '# need to test if target exists before moving element
 my $lic = $self->grab(\'- - - License\');

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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to