[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 <dr at 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