From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 25 Jul 2009 15:45:02 +0000 (-0700)
Subject:  * fix stupid block assignment in Control
X-Git-Tag: release/2.6.0~458^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cb854f9b6ee7db1d95911ccfe47df75406896338;p=debbugs.git

 * fix stupid block assignment in Control
---

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};