X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fprocess;h=516bd314505089aee2e1ae84360714dbdd746efb;hb=4a71b4c56f1bb4bfc9fb3fc7915511ea4a557800;hp=17aa15be7b297939a66e8ea97e1eff656fbf4645;hpb=ca9a45a0d04dd68229ed0f840c51eaca15ac1120;p=debbugs.git diff --git a/scripts/process b/scripts/process index 17aa15b..516bd31 100755 --- a/scripts/process +++ b/scripts/process @@ -224,6 +224,7 @@ for my $phline (@bodylines) # Remove BOM markers from UTF-8 strings # Fixes #488554 $phline =~ s/\xef\xbb\xbf//g; + $phline =~ s/\N{U+FEFF}//g; last if $phline !~ m/^([\w-]+):\s*(\S.*)/; my ($fn, $fv) = ($1, $2); $fv =~ s/\s*$//; @@ -540,10 +541,10 @@ if ($codeletter eq 'D' || $codeletter eq 'F') Subject => "$gBug#$ref closed by $markedby ($header{'subject'})", "Message-ID" => "", (defined $data->{msgid})?("In-Reply-To" => $data->{msgid}):(), - References => join(' ',grep {defined $_} ($header{'message-id'},$data->{msgid})), + References => join(' ',grep {defined $_} ($header{'message-id'},$data->{msgid},'')), "X-$gProject-PR-Message" => "they-closed $ref", - "X-$gProject-PR-Package" => "$data->{package}", - "X-$gProject-PR-Keywords" => "$data->{keywords}", + (defined $data->{package})?("X-$gProject-PR-Package" => $data->{package}):(), + (defined $data->{keywords})?("X-$gProject-PR-Keywords" => $data->{keywords}):(), # Only have a X-$gProject-PR-Source when we know the source package (defined($source_package) and length($source_package))?("X-$gProject-PR-Source" => $source_package):(), "Reply-To" => "$ref\@$gEmailDomain",