[licensecheck] 61/112: Add license pattern fsfap.

[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 6081a544004395f88079d3f1aa39b30f965af390
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Mon Oct 10 01:05:36 2016 +0200

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

diff --git a/lib/App/Licensecheck.pm b/lib/App/Licensecheck.pm
index 9179dd7..63da4a6 100755
--- a/lib/App/Licensecheck.pm
+++ b/lib/App/Licensecheck.pm
@@ -56,7 +56,6 @@ See the script for casual usage.
 
 # legacy descriptive names different from SPDX shortnames
 my %SPDX = (
-	FSFAP                  => 'FSF All Permissive',
 	FSFUL                  => 'FSF Unlimited',
 	FSFULLR                => 'FSF Unlimited (with Retention)',
 	FTL                    => 'Freetype',
@@ -795,8 +794,8 @@ sub parse_license
 
 	# FSFAP
 	given ($licensetext) {
-		when ( /Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved/i ) {
-			$gen_license->('FSFAP');
+		when ( /$L{re}{fsfap}/i ) {
+			$gen_license->('fsfap');
 		}
 	}
 
diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
index 923cb99..c4c13f7 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -64,6 +64,8 @@ Patterns each covering a single license.
 
 =item * dsdp
 
+=item * fsfap
+
 =item * gfdl
 
 =item * gfdl_niv
@@ -251,6 +253,12 @@ our %RE = (
 		tags => ['mit'],
 		pat  => qr/This program discloses material protectable/,
 	},
+	fsfap => {
+		name    => 'FSFAP',
+		caption => 'FSF All Permissive',
+		pat =>
+			qr/Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved/,
+	},
 	gfdl => {
 		name    => 'GFDL',
 		summary => 'GNU Free Documentation License',

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