[SCM] Debian package checker branch, infra-513663, updated. 2.5.0-rc1-128-gfb654d0

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

The following commit has been merged in the infra-513663 branch:
commit bd66ba89ffeb102ba87387c42c597d3971439d16
Author: Niels Thykier <niels@thykier.net>
Date:   Sat Apr 2 12:22:45 2011 +0200

    Pass the processable and its group to the checks

diff --git a/frontend/lintian b/frontend/lintian
index 106a595..ff73cc7 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -1484,7 +1484,7 @@ sub process_group {
 		}
 
 		debug_msg(1, "Running check: $check ...");
-		my $returnvalue = Checker::runcheck($pkg_name, $pkg_type, $info, $check);
+		my $returnvalue = Checker::runcheck($pkg_name, $pkg_type, $info, $check, $proc, $group);
 		# Set exit_code correctly if there was not yet an exit code
 		$exit_code = $returnvalue unless $exit_code;
 
diff --git a/lib/Checker.pm b/lib/Checker.pm
index cb9cc62..a9f6760 100644
--- a/lib/Checker.pm
+++ b/lib/Checker.pm
@@ -30,7 +30,7 @@ my $LINTIAN_ROOT = $main::LINTIAN_ROOT;
 my $debug = $::debug;
 
 sub runcheck {
-	my ($pkg, $type, $info, $name) = @_;
+	my ($pkg, $type, $info, $name, @args) = @_;
 
 	# Will be set to 2 if error is encountered
 	my $return = 0;
@@ -41,7 +41,7 @@ sub runcheck {
 	require "$LINTIAN_ROOT/checks/$name";
 
 	$name =~ s/[-.]/_/g;
-	eval { &{'Lintian::'.$name.'::run'}($pkg, $type, $info) };
+	eval { &{'Lintian::'.$name.'::run'}($pkg, $type, $info, @args) };
 	if ( $@ ) {
 	    print STDERR $@;
 	    print STDERR "internal error: cannot run $name check on package $pkg\n";

-- 
Debian package checker