build-versions-db doesn't need hostname

[debbugs.git] / Debbugs / Control / Service.pm

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 520db3eb7820bfb9133638c9c266b09e5f712d80..32e1f9730fadd18c76c025d4f9a321323950efda 100644 (file)
--- a/Debbugs/Control/Service.pm
+++ b/Debbugs/Control/Service.pm
@@ -75,7 +75,7 @@ is true, the above options must be present, and their values are used.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;
@@ -561,9 +561,7 @@ sub control_line {
            print {$transcript} "Failed to forcibly merge $ref: ".cleanup_eval_fail($@,$debug)."\n";
        }
     } elsif ($ctl eq 'clone') {
-       my $origref = $matches[0];
        my @newclonedids = split /\s+/, $matches[1];
-       my $newbugsneeded = scalar(@newclonedids);
 
        eval {
            my %new_clones;