[SCM] Debian package checker branch, infra-513663, updated. 2.5.0-rc2-120-gbca20b5

["Niels Thykier" <niels@thykier.net>]

The following commit has been merged in the infra-513663 branch:
commit 48a11267bd1d4c6d57d4efc7a2dc8de017ed42e6
Author: Niels Thykier <niels@thykier.net>
Date:   Tue Apr 12 10:01:58 2011 +0200

    Removed the processable prototype script; no longer used

diff --git a/private/processable-prototype.pl b/private/processable-prototype.pl
deleted file mode 100755
index d58c578..0000000
--- a/private/processable-prototype.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-BEGIN {
-  # determine LINTIAN_ROOT
-  my $LINTIAN_ROOT = $ENV{'LINTIAN_ROOT'};
-  $LINTIAN_ROOT = '.'
-      if (defined $LINTIAN_ROOT and not length $LINTIAN_ROOT);
-  $LINTIAN_ROOT = '/usr/share/lintian' unless ($LINTIAN_ROOT);
-  $ENV{'LINTIAN_ROOT'} = $LINTIAN_ROOT;
-}
-
-use lib "$ENV{'LINTIAN_ROOT'}/lib";
-use Lintian::ProcessablePool;
-use Util;
-use Cwd();
-
-my $debug = $ENV{DEBUG}//0;
-my $cwd = Cwd::cwd();
-my $pool = Lintian::ProcessablePool->new();
-
-foreach my $file (@ARGV) {
-    $pool->add_file($file) or die "Adding $file failed\n";
-}
-
-foreach my $gname ( sort $pool->get_group_names() ){
-    my $group = $pool->get_group($gname);
-    print "Group \"$gname\" consists of [",
-        join(', ', map { stringify_proc($_) } @{$group->get_processables()}),
-        "]\n";
-}
-
-exit 0;
-
-
-## subs
-
-sub stringify_proc {
-    my ($proc) = @_;
-    my $pkg_name = $proc->pkg_name();
-    my $pkg_type = $proc->pkg_type();
-    my $pkg_version = $proc->pkg_version();
-    if ($pkg_type eq 'binary' or $pkg_type eq 'udeb'){
-        my $pkg_arch = $proc->pkg_arch();
-        return "${pkg_name} $pkg_version ($pkg_type:$pkg_arch)";
-    }
-    return "${pkg_name} $pkg_version ($pkg_type)";
-}
-
-sub debug {
-    my ($level, $msg) = @_;
-    print "$msg\n" if $level >= $debug;
-}
-
-
-sub warning {
-    my ($msg) = @_;
-    print STDERR "$msg\n";
-}
-
-sub gen_proc_key{
-    my ($proc) = @_;
-    return $proc->pkg_name() . '_' . $proc->pkg_version() .
-        '_' . $proc->pkg_arch();
-}
-
-sub gen_src_proc_key{
-    my ($proc) = @_;
-    return $proc->pkg_src() . '_' . $proc->pkg_src_version();
-}
-

-- 
Debian package checker