From 29d0b3bf8f60449c03badf3373d3ad0c131de185 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sat, 31 May 2003 10:17:16 -0800
Subject: [PATCH] [project @ 2003-05-31 11:17:16 by cjwatson] Support merging
 bugs that have just been cloned (#170859).

---
 scripts/service.in | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/scripts/service.in b/scripts/service.in
index 765d6e0..78d7d8e 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.75 2003/05/26 12:30:04 cjwatson Exp $
+# $Id: service.in,v 1.76 2003/05/31 11:17:16 cjwatson Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -513,7 +513,7 @@ END
                 } while (&getnextbug);
 	    }
 	}
-    } elsif (m/^merge\s+(\d+(\s+\d+)+)\s*$/i) {
+    } elsif (m/^merge\s+(-?\d+(\s+-?\d+)+)\s*$/i) {
 	$ok++;
         @tomerge= sort { $a <=> $b } split(/\s+/,$1);
         @newmergelist= ();
@@ -522,6 +522,9 @@ END
         while (defined($ref= shift(@tomerge))) {
             &transcript("D| checking merge $ref\n") if $dl;
 	    $ref+= 0;
+	    if ($ref =~ m/^-\d+$/ && defined $clonebugs{$ref}) {
+		$ref = $clonebugs{$ref};
+	    }
 	    next if grep($_ eq $ref,@newmergelist);
 	    if (!&getbug) { &notfoundbug; @newmergelist=(); last }
             &foundbug;
-- 
2.39.2