[SCM] Debian package checker branch, master, updated. 2.5.11-105-g97c72c3
The following commit has been merged in the master branch:
commit 97c72c3c14f00b0c8092bf5e3d7a2a5c69cfe9ef
Author: Niels Thykier <niels@thykier.net>
Date: Sun Jan 27 12:07:06 2013 +0100
lintian: Remove redundant loop
Signed-off-by: Niels Thykier <niels@thykier.net>
diff --git a/frontend/lintian b/frontend/lintian
index 602f200..d1ec7d4 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -1242,38 +1242,14 @@ sub prep_unpack_error {
sub unpack_group {
my ($gname, $group) = @_;
- my @lpkgs = ();
my $errhandler = sub { prep_unpack_error ($group, @_) };
- foreach my $lpkg ($group->get_processables){
- my $pkg_name = $lpkg->pkg_name;
- my $pkg_type = $lpkg->pkg_type;
- my $pkg_ver = $lpkg->pkg_version;
- my $pkg_arch = $lpkg->pkg_arch;
- my $base;
-
- if (!defined $lpkg) {
- my $err = '.';
- $err = ": $@" if defined $@;
- warning("skipping $action of $pkg_type package ${pkg_name}$err");
- $exit_code = 2;
- $group->remove_processable ($lpkg);
- next;
- }
-
- push @lpkgs, $lpkg;
-
- # determine base directory
- $base = $lpkg->base_dir();
- debug_msg(1, "Unpacking $pkg_name $pkg_ver [$pkg_arch] ($pkg_type) in $base");
- }
-
# Kill pending jobs, if any
$unpacker->kill_jobs;
$unpacker->reset_worklist;
# Stop here if there is nothing list for us to do
- return unless $unpacker->prepare_tasks ($errhandler, @lpkgs);
+ return unless $unpacker->prepare_tasks ($errhandler, $group->get_processables);
v_msg ("Unpacking packages in group $gname");
--
Debian package checker
Reply to: