[SCM] Debian package checker branch, master, updated. 1.24.2-16-gabdf71e

["Russ Allbery" <rra@debian.org>]

The following commit has been merged in the master branch:
commit abdf71eea694013efe5543fd049ae7d0174ab793
Author: Russ Allbery <rra@debian.org>
Date:   Tue Jul 22 22:13:42 2008 -0700

    Try to recognize debconf template uses in Perl
    
    * checks/debconf:
      + [RA] Try to recognize at least some debconf template uses in Perl.

diff --git a/checks/debconf b/checks/debconf
index a02350e..1b197ba 100644
--- a/checks/debconf
+++ b/checks/debconf
@@ -435,6 +435,10 @@ for my $file (qw(config prerm postrm preinst postinst)) {
 	    if (m/^\s*(?:db_get|db_set(?:title)?)\s+[\"\']?(\S+?)[\"\']?(\s|\Z)/) {
 		$templates_used{$1} = 1;
 	    }
+	    # Try to handle Perl somewhat.
+	    if (m/^\s*(?:.*=\s*get|set)\s*\(\s*[\"\'](\S+?)[\"\']/) {
+		$templates_used{$1} = 1;
+	    }
 	    if (m/^\s*db_register\s+[\"\']?(\S+?)[\"\']?\s+(\S+)\s/) {
 		my ($template, $question) = ($1, $2);
 		push @{$template_aliases{$template}}, $question;
diff --git a/debian/changelog b/debian/changelog
index 18dc2f1..81def66 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,6 +7,7 @@ lintian (1.24.3) unstable; urgency=low
   * checks/debconf:
     + [ADB] Don't complain about unused debconf templates in udebs.
       (Closes: #491135)
+    + [RA] Try to recognize at least some debconf template uses in Perl.
   * checks/description:
     + [RA] Don't warn about a synopsis that ends in "etc."  Patch from
       Chris Lamb.  (Closes: #491252)

-- 
Debian package checker