[libstring-copyright-perl] 01/08: Fix skip some pseudosign chatter. Thanks to Dominique Dumont for reporting. See Debian bug#838896.

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository libstring-copyright-perl.

commit 5d6e8ffd96e7ca10d990add1fc993fc4dfff515e
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Wed Nov 30 18:28:00 2016 +0100

    Fix skip some pseudosign chatter. Thanks to Dominique Dumont for reporting. See Debian bug#838896.
---
 lib/String/Copyright.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/String/Copyright.pm b/lib/String/Copyright.pm
index cf9a7dc..3ebcdcc 100644
--- a/lib/String/Copyright.pm
+++ b/lib/String/Copyright.pm
@@ -117,8 +117,16 @@ my $boilerplate_re
 # (?i)copyright (?:(?:claim|holder|info|information|notice|owner|ownership|statement|string)s?|in|is|to)@\w
 # (?i)copyright (?:(?:claim|holder|info|information|notice|owner|ownership|statement|string)s?|in|is|to)@\b[-_@]
 # (?im)copyright (?:(?:claim|holder|info|information|notice|owner|ownership|statement|string)s?|in|is|to)[^ $]
+my $chatter_copyright_re
+	= qr/(?:assigned|claim|holder|info|information|law|notice|owner|ownership|statement|string)s?|and|eq|generated|in|is|on|to/i;
+my $the_notname_re
+	= qr/concrete|fault|first|immediately|least|min\/max|one|outer|previous|ratio|sum|user/i;
+my $the_sentence_re
+	= qr/(?:\w+$blank_re+){1,10}(?:are|can(?:not)?|in|is|must|was)/i;
+my $chatter_pseudosign_re
+	= qr/(?:the$blank_re+(?:$the_notname_re|$the_sentence_re)|there)\b/;
 my $chatter_re
-	= qr/copyright$blank_or_break_re(?:(?:assigned|claim|eq|generated|holder|info|information|law|notice|owner|ownership|statement|string)s?|and|in|is|on|to)(?:$|@\W|[^a-zA-Z0-9 at _-])/im;
+	= qr/copyright$blank_or_break_re$chatter_copyright_re(?:$|@\W|[^a-zA-Z0-9 at _-])|$blank_re*$pseudo_sign_re$blank_or_break_re+$chatter_pseudosign_re/im;
 
 my $signs_re
 	= qr/(?:$sign_re|(?:^|$blank_re)$pseudo_sign_re)(?:$blank_re+(?:$sign_re|$pseudo_sign_re))*/m;

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