From cb854f9b6ee7db1d95911ccfe47df75406896338 Mon Sep 17 00:00:00 2001 From: Don Armstrong 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