Package: devscripts
Version: 2.9.20
Severity: wishlist
Tag: patch

Attached please find a patch which implements the forcemerge control
command which I recently added to b.d.o.


Don Armstrong

-- 
"...Yet terrible as UNIX addiction is, there are worse fates. If UNIX
is the heroin of operating systems, then VMS is barbiturate addiction, the
Mac is MDMA, and MS-DOS is sniffing glue. (Windows is filling your sinuses
with lucite and letting it set.) You owe the Oracle a twelve-step program."
 --The Usenet Oracle

http://www.donarmstrong.com              http://rzlab.ucr.edu
diff -Nur tmp/devscripts-2.9.20/bts.pl devscripts-2.9.20/bts.pl
--- tmp/devscripts-2.9.20/bts.pl        2006-04-15 15:35:16.000000000 -0700
+++ devscripts-2.9.20/bts.pl    2006-05-26 18:20:10.000000000 -0700
@@ -882,6 +882,24 @@
     mailbts("merging @bugs", "merge @bugs");
 }
 
+=item forcemerge <bug> <bug> [<bug> ...]
+
+Forcibly merge a set of bugs together.
+
+=cut
+
+sub bts_forcemerge {
+    my @bugs;
+    foreach (@_) {
+       my $bug=checkbug($_) or die "bts forcemerge: some bug number(s) not 
valid\n";
+       push @bugs, $bug;
+    }
+    @bugs > 1 or
+       die "bts forcemerge: at least two bug numbers to be merged must be 
specified\n";
+    mailbts("forcibly merging @bugs", "forcemerge @bugs");
+}
+
+
 =item unmerge <bug>
 
 Unmerge a bug.

Attachment: signature.asc
Description: Digital signature

Reply via email to