X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FControl.pm;h=0878bda522f078bb29b1771f2843da14b53e17dc;hp=44d0062e9a9bc4ae1ccc21cb2d46d97451f4211b;hb=3eea543e26156ad2c5253f09f1b35d9554297386;hpb=1f43fcbfe34bb248333af927d78a79a67dd77d90

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 44d0062..0878bda 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -2963,19 +2963,19 @@ sub clone_bug {
     # bugs that this bug is blocking are also blocked by the new clone(s)
     for my $bug (split ' ', $data->{blocks}) {
 	for my $new_bug (@new_bugs) {
-	    set_blocks(bug => $new_bug,
-		       block => $bug,
+	    set_blocks(bug => $bug,
+                   block => $new_bug,
 		       hash_slice(%param,
 				  keys %common_options,
 				  keys %append_action_options),
 		      );
 	}
     }
-    # bugs that this bug is blocked by are also blocking the new clone(s)
+    # bugs that are blocking this bug are also blocking the new clone(s)
     for my $bug (split ' ', $data->{blockedby}) {
 	for my $new_bug (@new_bugs) {
-	    set_blocks(bug => $bug,
-		       block => $new_bug,
+	    set_blocks(bug => $new_bug,
+                   block => $bug,
 		       hash_slice(%param,
 				  keys %common_options,
 				  keys %append_action_options),