merge changes from dla source

[debbugs.git] / scripts / process

diff --git a/scripts/process b/scripts/process
index 9cbd85c8147730b181a7488a6f0ca73b1c4f9a29..2ffbdf965424efae835c7d3980bacdd7e214a53c 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -721,8 +721,10 @@ if (length($resentccval)) {
 
 my $common_headers='';
 {
-    local $a = 0;
-    $common_headers=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.");
@@ -1072,7 +1074,7 @@ sub checkmaintainers {
     my $anymaintfound=0; my $anymaintnotfound=0;
     for my $p (splitpackages($data->{package})) {
         $p =~ y/A-Z/a-z/;
-       $p =~ /([a-z0-9.+-]+)/;
+       $p =~ /((?:src:)?[a-z0-9.+-]+)/;
        $p = $1;
        next unless defined $p;
        if (defined $gSubscriptionDomain) {