From 5ba5dd2a8726fb1ac81cf835666c592090c125bc Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 15 May 2006 02:28:37 -0500 Subject: [PATCH] * Work around strange perlbug in list assignment that was breaking the forcemerge code on sarge --- scripts/service.in | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 = (); -- 2.39.5