[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[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: