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 <d...@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@_-])/im;
+       = 
qr/copyright$blank_or_break_re$chatter_copyright_re(?:$|@\W|[^a-zA-Z0-9@_-])|$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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to