X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=8903ddefbaa76595534b1d8ebae355892a2255ba;hb=b24bd1b5c8d818b64aa745e3fa60196692619ed7;hp=6f7420679beadd8339de6574877ec0758937d55e;hpb=9ba3b5ba7379ac06399d7b296e7796b65fad6149;p=debbugs.git

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),