[SCM] Debian package checker branch, master, updated. 2.5.11-150-g4936e00

["Niels Thykier" <niels@thykier.net>]

The following commit has been merged in the master branch:
commit 4b72ba33d43b03572dfd233b65fc96b54ab4df9c
Author: Bastien ROUCARIÈS <roucaries.bastien@gmail.com>
Date:   Thu Jan 24 10:17:32 2013 +0100

    Simplify grouping by using ?'name'
    
    ?'name' is better for documentation than $1
    
    Signed-off-by: Niels Thykier <niels@thykier.net>

diff --git a/checks/cruft b/checks/cruft
index 8ab61e0..83d731c 100644
--- a/checks/cruft
+++ b/checks/cruft
@@ -450,15 +450,14 @@ sub find_cruft {
                 # if the "redeeming" part is in the next block.
                 #
                 # See cruft-gfdl-fp-sliding-win for the test case
-                when(m/GNU \s+ Free \s+ Documentation \s+ License (.{0,1024})
+                when(m/GNU \s+ Free \s+ Documentation \s+ License (?'gfdlsections'.{0,1024})
                          A \s+ copy \s+ of \s+ the \s+ license \s+ is \s+ included/xis) {
                     if (!exists $licenseproblemhash{'gfdl-invariants'}) {
-                        my $gfdlsections = $1;
                         # local space
                         my $s = '(?:\s|\@c)';
                         # GFDL license, assume it is bad unless it
                         # explicitly states it has no "bad sections".
-                        given($gfdlsections) {
+                        given($+{gfdlsections}) {
                             when(m/with $s+ (?:the$s+)? no $s+ Invariant $s+ Sections,?
                                         $s+ (?:with$s+)? (?:the$s+)? no $s+ Front-Cover $s+ Texts,? $s+ and
                                         $s+ (?:with$s+)? (?:the$s+)? no $s+ Back-Cover $s+ Texts/xiso) {

-- 
Debian package checker