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

js pushed a commit to branch master
in repository licensecheck.

commit bd4c6f7e8234f9201d1ad82933e6fce3d1cfe415
Author: Jonas Smedegaard <d...@jones.dk>
Date:   Mon Oct 10 11:55:04 2016 +0200

    Add license pattern public_domain.
---
 lib/App/Licensecheck.pm       | 5 ++---
 lib/Regexp/Pattern/License.pm | 7 +++++++
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lib/App/Licensecheck.pm b/lib/App/Licensecheck.pm
index 44971ca..720eafc 100755
--- a/lib/App/Licensecheck.pm
+++ b/lib/App/Licensecheck.pm
@@ -57,7 +57,6 @@ See the script for casual usage.
 # legacy descriptive names different from SPDX shortnames
 my %SPDX = (
        'MS-PL'                => 'Ms-PL',
-       'public-domain'        => 'Public domain',
 );
 
 my $under_terms_of
@@ -844,8 +843,8 @@ sub parse_license
 
        # public-domain
        given ($licensetext) {
-               when ( /is in the public domain/i ) {
-                       $gen_license->('public-domain');
+               when ( /is in $L{re}{public_domain}/i ) {
+                       $gen_license->('public_domain');
                }
        }
 
diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
index ed00713..2a95aca 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -108,6 +108,8 @@ Patterns each covering a single license.
 
 =item * postgresql
 
+=item * public_domain
+
 =item * python
 
 =item * qpl
@@ -414,6 +416,11 @@ END
                tags => ['mit'],
                pat  => qr/$P{permission_use_fee_agree}/i,
        },
+       public_domain => {
+               name    => 'public-domain',
+               caption => 'Public domain',
+               pat     => qr/$the?public domain/,
+       },
        python => {
                name    => 'Python',
                caption => 'PSF',

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/licensecheck.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