[licensecheck] 100/112: Tidy Regexp::Pattern::License::Pattern: Rename pattern name_no_ad → nopromo_written_prior.

Jonas Smedegaard dr at jones.dk
Fri Nov 25 22:03:00 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 5c80e4150b2af92c469e5e3341818d8634b0195d
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Fri Nov 25 20:34:27 2016 +0100

    Tidy Regexp::Pattern::License::Pattern: Rename pattern name_no_ad → nopromo_written_prior.
---
 lib/Regexp/Pattern/License.pm       |  2 +-
 lib/Regexp/Pattern/License/Parts.pm | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
index dc4db7d..9303cdc 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -496,7 +496,7 @@ END
 	mit_oldstyle_permission => {
 		'name.alt.org.debian' => 'MIT~oldstyle~permission',
 		tags                  => ['mit'],
-		pat                   => qr/$P{name_no_ad}\.\s+$P{asis_name_sw}/,
+		pat => qr/$P{nopromo_written_prior}\.\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 7a6a4f2..48f5603 100644
--- a/lib/Regexp/Pattern/License/Parts.pm
+++ b/lib/Regexp/Pattern/License/Parts.pm
@@ -75,10 +75,10 @@ Patterns each covering a single part, e.g. a clause or a disclaimer phrase.
 
 =item * discl_name_warranties
 
-=item * name_no_ad
-
 =item * nopromo_neither
 
+=item * nopromo_written_prior
+
 =item * note_cpyr_perm
 
 =item * note_invar
@@ -275,17 +275,17 @@ our %RE = (
 		tags    => ['clause'],
 		pat     => qr/(?:\S+ ){1,15}DISCLAIMS? ALL WARRANTIES/,
 	},
-	name_no_ad => {
-		caption => 'no promo (advertising)',
-		tags    => ['clause'],
-		pat     => qr/without specific, written prior permission/,
-	},
 	nopromo_neither => {
 		caption => 'no promotion (neither)',
 		tags    => ['clause'],
 		pat =>
 			qr/(?:$no_authors may|The name.*? (?:may|must) not) be used to $promote $no_permit/,
 	},
+	nopromo_written_prior => {
+		caption => 'no promo (advertising)',
+		tags    => ['clause'],
+		pat     => qr/without specific, written prior permission/,
+	},
 	note_cpyr_perm => {
 		caption => 'notice (copyright + permission)',
 		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