From: cjwatson <>
Date: Thu, 7 Aug 2003 20:57:06 +0000 (-0800)
Subject: [project @ 2003-08-07 13:57:06 by cjwatson]
X-Git-Tag: release/2.6.0~827
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c844222db7daa9cae13bb5413a77c33cd0302637;p=debbugs.git

[project @ 2003-08-07 13:57:06 by cjwatson]
Allow "-" in pseudo-header names; reported by "solo turn".
---

diff --git a/scripts/process.in b/scripts/process.in
index 5ae31922..f2410f65 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.77 2003/08/06 10:57:23 cjwatson Exp $
+# $Id: process.in,v 1.78 2003/08/07 13:57:06 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -133,7 +133,7 @@ if (@bodylines and $bodylines[0] =~ /^-----BEGIN PGP SIGNED/) {
 # extract pseudo-headers
 for my $phline (@bodylines)
 {
-    last if $phline !~ m/^([\w]+):\s*(\S.*)/;
+    last if $phline !~ m/^([\w-]+):\s*(\S.*)/;
     my ($fn, $fv) = ($1, $2);
     $fv =~ s/\s*$//;
     print DEBUG ">$fn|$fv|\n";