From 86651d1b3a63c99071943bf26b0d822324ce55a0 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 13 Jul 2012 20:50:17 -0700
Subject: [PATCH] Fix block stanza

---
 Debbugs/Control/Service.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 7b4b44d..239f653 100644
--- 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;
-- 
2.39.2