[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 5ae31922b863b38e3b6a4eafde9a25344ab76776..f2410f65655e3d04447be9092665d10483920f17 100755 (executable)
--- 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";