[licensecheck] 89/112: Tidy Regexp::Pattern::License::Pattern: Rename pattern provided_no_warranty → asis_expr_warranty.

Jonas Smedegaard dr at jones.dk
Fri Nov 25 22:02:50 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 71eace5f8b882605184613b5f40f498cfeef8559
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Fri Nov 25 05:58:43 2016 +0100

    Tidy Regexp::Pattern::License::Pattern: Rename pattern provided_no_warranty → asis_expr_warranty.
---
 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 a9012ae..034a53b 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -511,13 +511,13 @@ END
 	ntp => {
 		name => 'NTP',
 		tags => ['mit'],
-		pat  => $P{provided_no_warranty},
+		pat  => $P{asis_expr_warranty},
 	},
 	ntp_disclaimer => {
 		'name.alt.org.debian' => 'NTP~disclaimer',
 		caption               => 'NTP (legal disclaimer)',
 		tags                  => ['mit'],
-		pat => qr/$P{provided_no_warranty}\.\s+$P{discl_disclaim}/,
+		pat => qr/$P{asis_expr_warranty}\.\s+$P{discl_disclaim}/,
 	},
 	openssl => {
 		name    => 'OpenSSL',
diff --git a/lib/Regexp/Pattern/License/Parts.pm b/lib/Regexp/Pattern/License/Parts.pm
index 8706340..2cfd9e0 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_expr_warranty
+
 =item * asis_name_sw
 
 =item * asis_sw_name
@@ -91,8 +93,6 @@ Patterns each covering a single part, e.g. a clause or a disclaimer phrase.
 
 =item * promo_no_author
 
-=item * provided_no_warranty
-
 =item * repro_notice_cond_discl
 
 =item * retain_notice
@@ -178,6 +178,11 @@ our %RE = (
 		tags    => ['clause'],
 		pat     => qr/$redist_any must retain $ack[^a-zA-Z]+$product_by/,
 	},
+	asis_expr_warranty => {
+		caption => 'as-is (express warranty)',
+		tags    => ['clause'],
+		pat     => qr/without express or implied warranty/,
+	},
 	asis_name_sw => {
 		caption => 'as-is (name, software)',
 		tags    => ['clause'],
@@ -307,11 +312,6 @@ our %RE = (
 		pat =>
 			qr/(?:$no_authors may|The name.*? (?:may|must) not) be used to $promote $no_permit/,
 	},
-	provided_no_warranty => {
-		caption => 'provided (no warranty)',
-		tags    => ['clause'],
-		pat     => qr/without express or implied warranty/,
-	},
 	repro_notice_cond_discl => {
 		caption => 'reproduce in doc (notice, conditions, disclaimer)',
 		tags    => ['clause'],

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