X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=631504a8d5420a24db292d736732201a3ad9113b;hb=d61a76fc5e1b52929a02705c07ac03936fd14244;hp=c0c835bad98e0f4b85136f0647852fb2b4df4464;hpb=f80f89b38a88a0d8fe5558e3b9ce34c8f1f42e2d;p=debbugs.git

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index c0c835b..631504a 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -2898,7 +2898,7 @@ sub clone_bug {
     for my $bug (split ' ', $data->{blocks}) {
 	for my $new_bug (@new_bugs) {
 	    set_blocks(bug => $new_bug,
-		       blocks => $bug,
+		       block => $bug,
 		       hash_slice(%param,
 				  keys %common_options,
 				  keys %append_action_options),
@@ -2909,7 +2909,7 @@ sub clone_bug {
     for my $bug (split ' ', $data->{blockedby}) {
 	for my $new_bug (@new_bugs) {
 	    set_blocks(bug => $bug,
-		       blocks => $new_bug,
+		       block => $new_bug,
 		       hash_slice(%param,
 				  keys %common_options,
 				  keys %append_action_options),