From 78018e337a69b8b7c642aaf45f2a164e0584ad81 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sun, 17 Jul 2005 17:11:23 -0800
Subject: [PATCH] [project @ 2005-07-17 18:11:23 by cjwatson] improve
 efficiency of merge handling

---
 migrate/debbugs-makeversions | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/migrate/debbugs-makeversions b/migrate/debbugs-makeversions
index 977d3a3b..a072e31f 100755
--- a/migrate/debbugs-makeversions
+++ b/migrate/debbugs-makeversions
@@ -161,15 +161,19 @@ while (defined(my $dir = readdir DB)) {
 	    next;
 	}
 
-	my ($found_versions, $fixed_versions) = getbuginfo("$db/$dir/$file");
-
+	my @merges = ();
+	# Only process the lowest of each set of merged bugs.
 	if (length $status->{mergedwith}) {
 	    @merges = sort { $a <=> $b } split ' ', $status->{mergedwith};
 	    if ($merges[0] < $bug) {
-		# already processed
 		unlockreadbugmerge($locks);
 		next;
 	    }
+	}
+
+	my ($found_versions, $fixed_versions) = getbuginfo("$db/$dir/$file");
+
+	if (length $status->{mergedwith}) {
 	    for my $merge (@merges) {
 		$merge =~ /(..)$/;
 		my $mergehash = $1;
@@ -182,7 +186,7 @@ while (defined(my $dir = readdir DB)) {
 
 	@$fixed_versions = () unless length $status->{done};
 
-	for my $out ($bug, (split ' ', $status->{mergedwith})) {
+	for my $out ($bug, @merges) {
 	    if ($out != $bug) {
 		filelock("lock/$out");
 	    }
-- 
2.39.5