* fix stupid block assignment in Control

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 3d94feea60b39bb29f1cc50b6186790b9674d08f..ac0e0e3bf105fbe7635cef8211fe4c43fe8d383a 100644 (file)
--- 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};