[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[SCM] Debian package checker branch, master, updated. 2.5.11-111-gfa7f7cb



The following commit has been merged in the master branch:
commit fa7f7cb3af61e7360950c75a9347e33be631ca58
Author: Niels Thykier <niels@thykier.net>
Date:   Sun Jan 27 13:12:15 2013 +0100

    lib/: Remove some unused variables
    
    Signed-off-by: Niels Thykier <niels@thykier.net>

diff --git a/lib/Lintian/Command.pm b/lib/Lintian/Command.pm
index a39297f..82b277b 100644
--- a/lib/Lintian/Command.pm
+++ b/lib/Lintian/Command.pm
@@ -26,7 +26,6 @@ BEGIN {
 }
 
 use Exporter qw(import);
-our @EXPORT = ();
 our @EXPORT_OK = qw(spawn reap kill);
 
 use IPC::Run qw(run harness kill_kill);
diff --git a/lib/Lintian/Output.pm b/lib/Lintian/Output.pm
index e662f6f..21d0a0d 100644
--- a/lib/Lintian/Output.pm
+++ b/lib/Lintian/Output.pm
@@ -29,9 +29,8 @@ use Exporter qw(import);
 # Force export as soon as possible, since some of the modules we load also
 # depend on us and the sequencing can cause things not to be exported
 # otherwise.
-our (@EXPORT, %EXPORT_TAGS, @EXPORT_OK);
+our (%EXPORT_TAGS, @EXPORT_OK);
 BEGIN {
-    @EXPORT = ();
     %EXPORT_TAGS = ( messages => [qw(msg v_msg warning debug_msg delimiter)],
                      util => [qw(_global_or_object)]);
     @EXPORT_OK = (@{$EXPORT_TAGS{messages}},
diff --git a/lib/Lintian/Relation.pm b/lib/Lintian/Relation.pm
index 4d84a6c..4c81371 100644
--- a/lib/Lintian/Relation.pm
+++ b/lib/Lintian/Relation.pm
@@ -30,8 +30,7 @@ use constant {
 };
 
 use Exporter qw(import);
-our (@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-@EXPORT = ();
+our (@EXPORT_OK, %EXPORT_TAGS);
 %EXPORT_TAGS = (
     constants => [qw(VISIT_PRED_NAME VISIT_PRED_FULL VISIT_OR_CLAUSE_FULL
                      VISIT_STOP_FIRST_MATCH)],
diff --git a/lib/Lintian/Util.pm b/lib/Lintian/Util.pm
index 870799e..7054535 100644
--- a/lib/Lintian/Util.pm
+++ b/lib/Lintian/Util.pm
@@ -672,7 +672,6 @@ effect if FOH is not a handle.
 sub slurp_entire_file {
     my ($file, $noclose) = @_;
     my $fd;
-    my $res;
     if (openhandle $file) {
         $fd = $file;
     } else {

-- 
Debian package checker


Reply to: