The following commit has been merged in the infra-513663 branch:
commit bd66ba89ffeb102ba87387c42c597d3971439d16
Author: Niels Thykier <[email protected]>
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
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
Archive: http://lists.debian.org/[email protected]
