From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 5 Aug 2017 15:32:32 +0000 (-0700)
Subject: include non-breaking spaces in pheader regex for old perl (≤5.18)
X-Git-Tag: release/2.6.0~81
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=579e7989241accf28828f218679da2131e449900

include non-breaking spaces in pheader regex for old perl (≤5.18)
---

diff --git a/scripts/process b/scripts/process
index 228d28a..38e4f90 100755
--- a/scripts/process
+++ b/scripts/process
@@ -225,7 +225,10 @@ for my $phline (@bodylines)
     # Fixes #488554
     $phline =~ s/\xef\xbb\xbf//g;
     $phline =~ s/\N{U+FEFF}//g;
-    last if $phline !~ m/^([\w-]+):\s*(\S.*)/;
+    last if $phline !~ m/^([\w-]+): # psuedoheader
+			 (?:\s|\N{U+00A0})* # zero or more spaces, including
+                                            # non-breaking space
+			 (\S.*)/x; # pseudoheader value
     my ($fn, $fv) = ($1, $2);
     $fv =~ s/\s*$//;
     # pluralize tag/usertag