* 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 3a7c07acc95890950d51b39cf695b7d3f693b385..71d5cd4169af8f0965bc47d9f13a847e7b0bf313 100755 (executable)
--- 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 = ();