Fix block stanza

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 7b4b44dbeb1897e8259ac01d792741c887528ba0..239f6539977ffea193d0276178d71bfaadec4dad 100644 (file)
--- a/Debbugs/Control/Service.pm
+++ b/Debbugs/Control/Service.pm
@@ -488,7 +488,7 @@ sub control_line {
            $errors++;
            print {$transcript} "Failed to alter tags of $config{bug} $ref: ".cleanup_eval_fail($@,$debug)."\n";
        }
-    } elsif (m/^(un)?block\s+\#?(-?\d+)\s+(?:by|with)\s+(\S.*)?$/i) {
+    } elsif ($ctl eq 'block') {
        my $add_remove = defined $matches[0] && $matches[0] eq 'un';
        $ref = $matches[1];
        $ref = exists $param{clonebugs}{$ref} ? $param{clonebugs}{$ref} : $ref;