Control: tags -1 + patch
Hi,
Please find attached a patch which should fix this. This now matches the
call in set_merge which adds to the block list.
Regards,
James
>From fb8ec9ae97f67dc9aa687cc5a1372b1c233eb903 Mon Sep 17 00:00:00 2001
From: James Clarke <jrt...@jrtc27.com>
Date: Wed, 16 Nov 2016 20:00:59 +0000
Subject: [PATCH] D/Control.pm: Bugs which were cloned overwrote rather than
appended to block lists
Closes: #820044
---
Debbugs/Control.pm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 6f74206..8903dde 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -2936,7 +2936,8 @@ sub clone_bug {
for my $bug (split ' ', $data->{blocks}) {
for my $new_bug (@new_bugs) {
set_blocks(bug => $bug,
- block => $new_bug,
+ block => $new_bug,
+ add => 1,
hash_slice(%param,
keys %common_options,
keys %append_action_options),
@@ -2947,7 +2948,8 @@ sub clone_bug {
for my $bug (split ' ', $data->{blockedby}) {
for my $new_bug (@new_bugs) {
set_blocks(bug => $new_bug,
- block => $bug,
+ block => $bug,
+ add => 1,
hash_slice(%param,
keys %common_options,
keys %append_action_options),
--
2.10.2
