The following commit has been merged in the master branch:
commit abdf71eea694013efe5543fd049ae7d0174ab793
Author: Russ Allbery <[EMAIL PROTECTED]>
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
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
