[SCM] Debian package checker branch, master, updated. 2.5.13-20-g7fbbd8a
The following commit has been merged in the master branch:
commit 7fbbd8ad0fe5e05742dc859e3e56538b99920fc7
Author: Niels Thykier <niels@thykier.net>
Date: Thu Jun 13 11:24:51 2013 +0200
c/cruft: Remove unused parameter
Signed-off-by: Niels Thykier <niels@thykier.net>
diff --git a/checks/cruft b/checks/cruft
index 8a3c6d3..e7cc92b 100644
--- a/checks/cruft
+++ b/checks/cruft
@@ -101,7 +101,7 @@ our @EOL_TERMINATORS_FILES = qw(control changelog);
sub run {
-my ($pkg, undef, $info) = @_;
+my (undef, undef, $info) = @_;
my $droot = $info->debfiles;
@@ -140,7 +140,7 @@ my $format = $info->field('format');
# that may not be present.
$format = '3.0 (quilt)' unless defined $format;
if ($format =~ /^\s*2\.0\s*\z/ or $format =~ /^\s*3\.0\s*\(quilt\)/) {
- my $wanted = sub { check_debfiles($pkg, $info, qr/\Q$droot\E/, \%warned) };
+ my $wanted = sub { check_debfiles($info, qr/\Q$droot\E/, \%warned) };
find($wanted, $droot);
} elsif (not $info->native) {
check_diffstat($info->diffstat, \%warned);
@@ -259,7 +259,7 @@ sub check_diffstat {
# output. Record any files we warn about in $warned so that we don't warn
# again when checking the full unpacked source.
sub check_debfiles {
- my ($pkg, $info, $droot, $warned) = @_;
+ my ($info, $droot, $warned) = @_;
(my $name = $File::Find::name) =~ s,^$droot/,,;
# Check for unwanted directories and files. This really duplicates the
--
Debian package checker
Reply to: