Drop more unused variables

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

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 42f3801e90758151e2e6ad88840c967e36be0ece..32e1f9730fadd18c76c025d4f9a321323950efda 100644 (file)
--- a/Debbugs/Control/Service.pm
+++ b/Debbugs/Control/Service.pm
@@ -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;