[libconfig-model-dpkg-perl] 01/23: Scanner: don't use qr// when cleaning up regexp after

[dod at debian.org]

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

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 95123b92cafbfc428287fde21215fe491349593e
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Jan 21 19:05:48 2017 +0100

    Scanner: don't use qr// when cleaning up regexp after
---
 lib/Dpkg/Copyright/Scanner.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index f7521fc..363dd7b 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -92,7 +92,7 @@ sub _warn ($msg) {
 
 my %default ;
 # from licensecheck.pl
-$default{ignore}= qr!
+$default{ignore}= << 'EOR';
 # Ignore general backup files
 ~$|
 # Ignore emacs recovery files
@@ -106,12 +106,12 @@ $default{ignore}= qr!
 # File or directory names that should be ignored
 (?:^|/)(?:CVS|RCS|\.pc|\.deps|\{arch\}|\.arch-ids|\.svn|\.hg|_darcs|\.git|
 \.shelf|_MTN|\.bzr(?:\.backup|tags)?)(?:$|/.*$)
-!x;
+EOR
 
 # also from licensecheck
-$default{check} =
-    qr!
-    \.(                          # search for file suffix
+$default{check} = << 'EOR2' ;
+    ^(?i:readme|license|copying)
+    |\.(                          # search for file suffix
         c(c|pp|xx)?              # c and c++
        |h(h|pp|xx)?              # header files for c and c++
        |S
@@ -144,7 +144,7 @@ $default{check} =
        |(c|l)?hs
      )
     $
-   !x;
+EOR2
 
 # cleanup the regexp
 map { s/#.*\n//g;  s/\n//g; } values %default;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git