[licensecheck] 88/112: Tidy Regexp::Pattern::License::Pattern: Rename pattern discl_provide → asis_name_sw.

Jonas Smedegaard dr at jones.dk
Fri Nov 25 22:02:45 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 1b39a7b6b9254657c7f92c362a3401147829ba33
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Fri Nov 25 05:45:19 2016 +0100

    Tidy Regexp::Pattern::License::Pattern: Rename pattern discl_provide → asis_name_sw.
---
 lib/Regexp/Pattern/License.pm       |  4 ++--
 lib/Regexp/Pattern/License/Parts.pm | 14 +++++++-------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
index fd6f30c..a9012ae 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -483,12 +483,12 @@ END
 		'name.alt.org.debian' => 'MIT~oldstyle~disclaimer',
 		caption               => 'MIT (Old Style, legal disclaimer)',
 		tags                  => ['mit'],
-		pat => qr/supporting documentation\.\s+$P{discl_provide}/,
+		pat => qr/supporting documentation\.\s+$P{asis_name_sw}/,
 	},
 	mit_oldstyle_permission => {
 		'name.alt.org.debian' => 'MIT~oldstyle~permission',
 		tags                  => ['mit'],
-		pat                   => qr/$P{name_no_ad}\.\s+$P{discl_provide}/,
+		pat                   => qr/$P{name_no_ad}\.\s+$P{asis_name_sw}/,
 	},
 	mpl => {
 		name    => 'MPL',
diff --git a/lib/Regexp/Pattern/License/Parts.pm b/lib/Regexp/Pattern/License/Parts.pm
index afc1b33..8706340 100644
--- a/lib/Regexp/Pattern/License/Parts.pm
+++ b/lib/Regexp/Pattern/License/Parts.pm
@@ -39,6 +39,8 @@ Patterns each covering a single part, e.g. a clause or a disclaimer phrase.
 
 =item * ad_always
 
+=item * asis_name_sw
+
 =item * asis_sw_name
 
 =item * cc
@@ -65,8 +67,6 @@ Patterns each covering a single part, e.g. a clause or a disclaimer phrase.
 
 =item * derive_share
 
-=item * discl_provide
-
 =item * discl_disclaim
 
 =item * name_no_ad
@@ -178,6 +178,11 @@ our %RE = (
 		tags    => ['clause'],
 		pat     => qr/$redist_any must retain $ack[^a-zA-Z]+$product_by/,
 	},
+	asis_name_sw => {
+		caption => 'as-is (name, software)',
+		tags    => ['clause'],
+		pat     => qr/(?:\S+ ){1,15}PROVIDES? THIS SOFTWARE/,
+	},
 	asis_sw_name => {
 		caption => 'as-is (software, name)',
 		tags    => ['clause'],
@@ -244,11 +249,6 @@ our %RE = (
 		pat =>
 			qr/source code of the altered version of this software available/,
 	},
-	discl_provide => {
-		caption => 'disclaimer (provides)',
-		tags    => ['disclaimer'],
-		pat     => qr/(?:\S+ ){1,15}PROVIDES? THIS SOFTWARE/,
-	},
 	discl_disclaim => {
 		caption => 'disclaimer (disclaims)',
 		tags    => ['disclaimer'],

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