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

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