X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=631504a8d5420a24db292d736732201a3ad9113b;hb=31ab1899c89be7bdafb7626b8f1fb3fff5ef5838;hp=c0c835bad98e0f4b85136f0647852fb2b4df4464;hpb=64843722b85464a340f87570b1f1b251c2b063b4;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),