X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FEstraier.pm;h=174ad4c6493306dd2e5f2b5acb11157ec27cf9f8;hb=9947e01ea9e792bf12c77405e06ed69ad8751988;hp=5987fe9ec5ddf1f5485157fa407b5444573fb0c1;hpb=089ed434abbcbbf03e7732ad362162a55c0e396e;p=debbugs.git

diff --git a/Debbugs/Estraier.pm b/Debbugs/Estraier.pm
index 5987fe9..174ad4c 100644
--- a/Debbugs/Estraier.pm
+++ b/Debbugs/Estraier.pm
@@ -28,7 +28,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 use Debbugs::Log;
 use Search::Estraier;
 use Debbugs::Common qw(getbuglocation getbugcomponent make_list);
@@ -95,7 +95,6 @@ sub remove_old_messages{
      my $cond = new Search::Estraier::Condition;
      $cond->add_attr('@uri STRBW '.$bug_num.'/');
      $cond->set_max(50);
-     my $skip;
      my $nres;
      while ($nres = $est->search($cond,0) and $nres->doc_num > 0){
 	  for my $rdoc (map {$nres->get_doc($_)} 0..($nres->doc_num-1)) {