[licensecheck] 73/112: Add license pattern beerware.

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository licensecheck.

commit f2a13fbcbd0db039dc4ae750adb53f541cd2c76c
Author: Jonas Smedegaard <d...@jones.dk>
Date:   Mon Oct 10 13:13:03 2016 +0200

    Add license pattern beerware.
---
 lib/App/Licensecheck.pm       | 4 ++--
 lib/Regexp/Pattern/License.pm | 8 ++++++++
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/App/Licensecheck.pm b/lib/App/Licensecheck.pm
index 2f9f00b..efacf94 100755
--- a/lib/App/Licensecheck.pm
+++ b/lib/App/Licensecheck.pm
@@ -776,8 +776,8 @@ sub parse_license
 
        # Beerware
        given ($licensetext) {
-               when ( /(THE BEER-WARE LICENSE)/i ) {
-                       $gen_license->('Beerware');
+               when ( /$L{re}{beerware}/i ) {
+                       $gen_license->('beerware');
                }
        }
 
diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
index a8b5235..790d6a9 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -38,6 +38,8 @@ Patterns each covering a single license.
 
 =item * artistic
 
+=item * beerware
+
 =item * bsd_2_clause
 
 =item * bsd_3_clause
@@ -209,6 +211,12 @@ our %RE = (
                summary => 'Artistic License',
                pat     => qr/$the?Artistic License/,
        },
+       beerware => {
+               name    => 'Beerware',
+               summary => 'Beer-Ware License',
+               pat =>
+                       qr/(?:you can buy me a beer in 
return|$the?beer-?ware(?: License)?)/,
+       },
        bsd_2_clause => {
                name                  => 'BSD-2-Clause',
                'name.alt.org.debian' => 'BSD-2-clause',

-- 
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