[SCM] Debian package checker branch, master, updated. 2.5.0-rc2-122-g12888e8
The following commit has been merged in the master branch:
commit 60113ec409c8dfc20b8aa62effe40a264b4544a5
Author: Niels Thykier <niels@thykier.net>
Date: Sun Feb 20 19:23:46 2011 +0100
PerlCritic cleaned Lintian::ProcessableGroup
diff --git a/lib/Lintian/ProcessableGroup.pm b/lib/Lintian/ProcessableGroup.pm
index 0f35282..f592658 100644
--- a/lib/Lintian/ProcessableGroup.pm
+++ b/lib/Lintian/ProcessableGroup.pm
@@ -69,7 +69,7 @@ sub new {
# populates $self from a changes file.
sub _init_group_from_changes {
my ($self, $changes) = @_;
- my ($group, $pch, $cinfo, $cdir);
+ my ($cinfo, $cdir);
fail "$changes does not exist" unless -e $changes;
$cinfo = get_dsc_info ($changes) or
fail "$changes is not a valid changes file";
@@ -77,7 +77,7 @@ sub _init_group_from_changes {
$cdir = $changes;
$cdir =~ s,(.+)/[^/]+$,$1,;
foreach my $line (split (/\n/o, $cinfo->{'files'}//'')) {
- my ($file, $proc, $pkg_type);
+ my ($file, $pkg_type);
next unless defined $line;
chomp($line);
$line =~ s/^\s++//o;
@@ -94,7 +94,7 @@ sub _init_group_from_changes {
print STDERR "$cdir/$file does not exist, exiting\n";
exit 2;
}
-
+
if ($file =~ /\.deb$/o) {
$pkg_type = 'binary';
} elsif ($file =~ /\.udeb$/o){
--
Debian package checker
Reply to: