[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[lintian] 01/01: cruft.pm: Avoid unnecessary use of /i



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

nthykier pushed a commit to branch master
in repository lintian.

commit 769d2d8568d96c712c55235a9ba97f8956977097
Author: Niels Thykier <niels@thykier.net>
Date:   Sat Jul 12 22:24:54 2014 +0200

    cruft.pm: Avoid unnecessary use of /i
    
    Avoid unncessary use of the /i modifier.  The input string is already
    lowercased and it allows perl to optimise the regex a bit more.
    
    Signed-off-by: Niels Thykier <niels@thykier.net>
---
 checks/cruft.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/checks/cruft.pm b/checks/cruft.pm
index a9757bb..6140648 100644
--- a/checks/cruft.pm
+++ b/checks/cruft.pm
@@ -910,23 +910,23 @@ sub _check_gfdl_license_problem {
     # matched string
     do {
         $oldgfdlsections = $gfdlsections;
-        $gfdlsections =~ s{ \A \(?[ ]? g?fdl [ ]?\)?[ ]? [,\.;]?[ ]?}{}xismo;
+        $gfdlsections =~ s{ \A \(?[ ]? g?fdl [ ]?\)?[ ]? [,\.;]?[ ]?}{}xsmo;
         $gfdlsections =~ s{ \A (?:either[ ])?
-                           version [ ] \d+(?:\.\d+)? [ ]?}{}xismo;
-        $gfdlsections =~ s{ \A of [ ] the [ ] license [ ]?[,\.;][ ]?}{}xismo;
+                           version [ ] \d+(?:\.\d+)? [ ]?}{}xsmo;
+        $gfdlsections =~ s{ \A of [ ] the [ ] license [ ]?[,\.;][ ]?}{}xsmo;
         $gfdlsections =~ s{ \A or (?:[ ]\(?[ ]? at [ ] your [ ] option [ ]?\)?)?
-                           [ ] any [ ] later [ ] version[ ]?}{}xismo;
+                           [ ] any [ ] later [ ] version[ ]?}{}xsmo;
         $gfdlsections =~ s{ \A (as[ ])? published [ ] by [ ]
-                           the [ ] free [ ] software [ ] foundation[ ]?}{}xismo;
-        $gfdlsections =~ s{\(?[ ]?FSF[ ]?\)?[ ]?}{}xismo;
-        $gfdlsections =~ s{[,\.;]?[ ]?}{}xismo;
+                           the [ ] free [ ] software [ ] foundation[ ]?}{}xsmo;
+        $gfdlsections =~ s{\(?[ ]? fsf [ ]?\)?[ ]?}{}xsmo;
+        $gfdlsections =~ s{[,\.;]?[ ]?}{}xsmo;
     } while ($oldgfdlsections ne $gfdlsections);
 
     $contextbefore =~ s{
                        [ ]? (:?[,\.;]? [ ]?)?
                        permission [ ] is [ ] granted [ ] to [ ] copy [ ]?[,\.;]?[ ]?
                        distribute [ ]?[,\.;]?[ ]? and[ ]?/?[ ]?or [ ] modify [ ]
-                       this [ ] document [ ] under [ ] the [ ] terms [ ] of [ ] the\Z}{}xismo;
+                       this [ ] document [ ] under [ ] the [ ] terms [ ] of [ ] the\Z}{}xsmo;
     # Treat ambiguous empty text
     unless(
         defined(

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git


Reply to: