From: Don Armstrong <don@volo>
Date: Mon, 15 May 2006 07:28:37 +0000 (-0500)
Subject:  * Work around strange perlbug in list assignment that was breaking
X-Git-Tag: release/2.6.0~612^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5ba5dd2a8726fb1ac81cf835666c592090c125bc;p=debbugs.git

 * Work around strange perlbug in list assignment that was breaking
   the forcemerge code on sarge
---

diff --git a/scripts/service.in b/scripts/service.in
index 3a7c07ac..71d5cd41 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -916,10 +916,11 @@ END
         &endmerge;
     } elsif (m/^forcemerge\s+\#?(-?\d+(?:\s+\#?-?\d+)+)\s*$/i) {
 	$ok++;
-	my @tomerge = split /\s+\#?/,$1;
-	my $master_bug = shift @tomerge;
+	my @temp = split /\s+\#?/,$1;
+	my $master_bug = shift @temp;
 	my $master_bug_data;
-	@tomerge = ($master_bug, sort { $a <=> $b } @tomerge);
+	my @tomerge = sort { $a <=> $b } @temp;
+        unshift @tomerge,$master_bug;
 	&transcript("D| force merging ".join(',',@tomerge)."\n") if $dl;
 	my @newmergelist= ();
 	my %tags = ();