The following commit has been merged in the master branch:
commit d030b45bb536d5d68ceb8db9ddc964ea56d0b7aa
Author: Adam D. Barratt <[email protected]>
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


-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to