fix x-loop addition

diff --git a/scripts/process b/scripts/process
index 4d89eecaeaa4507713e0c79a8efe423be4c20fe0..f0047dbc4d94c6cab69e10cdf872c6f941ce09d8 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -721,8 +721,10 @@ if (length($resentccval)) {
 
 my $common_headers='';
 {
-    local $a = 0;
-    $common_headers = join('',map {$_.($a++%2?': ':"\n")} @common_headers);
+    my @tmp = @common_headers;
+    while (my ($key,$value) = splice(@tmp, 0,2)) {
+       $common_headers .= qq($key: $value\n);
+    }
 }
 if ($codeletter eq 'U') { # sent to -submitter
     &htmllog("Message", "sent on", $data->{originator}, "$gBug#$ref.");