From cb854f9b6ee7db1d95911ccfe47df75406896338 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 25 Jul 2009 08:45:02 -0700
Subject: [PATCH] * fix stupid block assignment in Control
---
Debbugs/Control.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 3d94feea..ac0e0e3b 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -482,8 +482,9 @@ sub set_blocks {
for my $data (@blocking_data) {
my $old_data = dclone($data);
my %blocks;
- %blocks = split ' ', $data->{blocks};
- my @blocks;
+ my @blocks = split ' ', $data->{blocks};
+ @blocks{@blocks} = (1) x @blocks;
+ @blocks = ();
for my $bug (@bugs) {
if ($add_remove eq 'remove') {
next unless exists $blocks{$bug};
--
2.39.5