[licensecheck] 31/112: Fix detect licenses mit_old mit_unspecified (was misdetected as mit_new).

Jonas Smedegaard dr at jones.dk
Fri Nov 25 22:01:46 UTC 2016


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

js pushed a commit to branch master
in repository licensecheck.

commit ef2d1f43bd1854d7d43b8ab40c8008ccccb393a7
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Mon Oct 10 16:47:35 2016 +0200

    Fix detect licenses mit_old mit_unspecified (was misdetected as mit_new).
---
 lib/App/Licensecheck.pm | 7 +++++--
 t/grant.t               | 4 ++--
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/lib/App/Licensecheck.pm b/lib/App/Licensecheck.pm
index 12f4b24..baf2777 100755
--- a/lib/App/Licensecheck.pm
+++ b/lib/App/Licensecheck.pm
@@ -598,7 +598,7 @@ sub parse_license
 			$gen_license->('mit_new');
 		}
 		when ( /$L{re}{'mit_old'}/ ) {
-			$gen_license->('mit_new');
+			$gen_license->('mit_old');
 		}
 	}
 
@@ -707,9 +707,12 @@ sub parse_license
 		when ( /Apache(?: Software)? License(?:,? $ver_prefix_re($ver_re)( or(?: any)? (?:later|newer))?)?(?:(?: or)? [^ ,]*?apache[^ ,]*| \([^(),]\))*,? or(?: the)? bsd(?:[ -](\d)-clause)?\b/i ) {
 			$gen_license->( 'Apache', $1, $2, "BSD-$3-clause" );
 		}
-		when ( /Apache(?: Software)? License(?:,? $ver_prefix_re($ver_re)( or(?: any)? (?:later|newer))?)?(?:(?: or)? [^ ,]*?apache[^ ,]*| \([^(),]\))*,? or (?:$L{re}{mit_new}|$L{re}{mit})\b/i ) {
+		when ( /Apache(?: Software)? License(?:,? $ver_prefix_re($ver_re)( or(?: any)? (?:later|newer))?)?(?:(?: or)? [^ ,]*?apache[^ ,]*| \([^(),]\))*,? or $L{re}{mit_new}\b/i ) {
 			$gen_license->( 'Apache', $1, $2, 'mit_new', $3, $4 );
 		}
+		when ( /Apache(?: Software)? License(?:,? $ver_prefix_re($ver_re)( or(?: any)? (?:later|newer))?)?(?:(?: or)? [^ ,]*?apache[^ ,]*| \([^(),]\))*,? or $L{re}{mit}\b/i ) {
+			$gen_license->( 'Apache', $1, $2, 'mit', $3, $4 );
+		}
 		when ( /Apache(?: Software)? License(?:,? $ver_prefix_re($ver_re)(,? or(?: any)? (?:later|newer))?)?/i ) {
 			$gen_license->( 'Apache', $1, $2 );
 		}
diff --git a/t/grant.t b/t/grant.t
index e7d8d86..16f0eae 100644
--- a/t/grant.t
+++ b/t/grant.t
@@ -35,7 +35,7 @@ run_me(
 	{ license => 'Apache-2.0 or GPL-2', corpus => 'Apache_and_more/PIE.htc' }
 );
 run_me(
-	{   license => 'Apache-2.0 or Expat',
+	{   license => 'Apache-2.0 or MIT~unspecified',
 		corpus  => 'Apache_and_more/rust.lang'
 	}
 );
@@ -76,7 +76,7 @@ run_me(
 
 # MIT
 run_me(
-	{   license => 'Expat',
+	{   license => 'MIT~old',
 		corpus  => 'MIT/harfbuzz-impl.c'
 	}
 );

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



More information about the Pkg-perl-cvs-commits mailing list