[SCM] Debian package checker branch, master, updated. 2.1.6-7-gd030b45
The following commit has been merged in the master branch:
commit d030b45bb536d5d68ceb8db9ddc964ea56d0b7aa
Author: Adam D. Barratt <adam@adam-barratt.org.uk>
Date: Wed Jan 21 22:25:02 2009 +0000
Remove unused code.
diff --git a/debian/changelog b/debian/changelog
index 7fe39ff..a003fa1 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,8 @@ lintian (2.1.7) UNRELEASED; urgency=low
+ [ADB] Add source-control-file to the list of information needed by
the script. Thanks, Raphael Geissert. (Closes: #512563)
+ * lib/Checker.pm:
+ + [ADB] Remove some unused code.
* lib/Lintian/Collect/Source.pm:
+ [ADB] Add a missing "use Util" as the module uses the fail() function
from that module. Thanks, Raphael Geissert. (Closes: #512560)
diff --git a/lib/Checker.pm b/lib/Checker.pm
index 7ff82a8..7aa7e23 100644
--- a/lib/Checker.pm
+++ b/lib/Checker.pm
@@ -22,32 +22,12 @@ package Checker;
use strict;
no strict 'refs';
-use Tags;
-use Cwd 'cwd';
-
# Quiet "Name "main::LINTIAN_ROOT" used only once"
# The variable comes from 'lintian'
() = $main::LINTIAN_ROOT;
my $LINTIAN_ROOT = $main::LINTIAN_ROOT;
-
-# Can also be more precise later on (only verbose with checker actions) but for
-# now this will do --Jeroen
-my $verbose = $::verbose;
my $debug = $::debug;
-my %checks;
-# For source, binary, udeb, the names of applicable checks
-my %checks_per_type;
-
-# Register a check. Argument is a hash with info
-sub register {
- my $info = $_[0];
- fail("Duplicate check $info->{'check-script'}")
- if exists $checks{$info->{'check-script'}};
-
- $checks{$info->{'check-script'}} = $info;
-}
-
sub runcheck {
my ($pkg, $type, $info, $name) = @_;
@@ -56,12 +36,9 @@ sub runcheck {
print "N: Running check: $name ...\n" if $debug;
- my $check = $checks{$name};
-
# require has an anti-require-twice cache
require "$LINTIAN_ROOT/checks/$name";
- #print STDERR "Now running $name...\n";
$name =~ s/[-.]/_/g;
eval { &{'Lintian::'.$name.'::run'}($pkg, $type, $info) };
if ( $@ ) {
--
Debian package checker
Reply to: