cloning had the blocking reversed

Bugs which were cloned had the block/blockedby sense reversed. This has
now been cleaned up.

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 44d0062e9a9bc4ae1ccc21cb2d46d97451f4211b..0878bda522f078bb29b1771f2843da14b53e17dc 100644 (file)
--- 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),