From 54b3a0d635c11376dd401ecbd0436b1eb14acc92 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Thu, 12 Jul 2012 14:10:23 -0700 Subject: [PATCH] extract control psuedoheaders into @control_bits --- scripts/process | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/scripts/process b/scripts/process index afe0b18..c238246 100755 --- a/scripts/process +++ b/scripts/process @@ -210,6 +210,7 @@ if (@bodylines and $bodylines[0] =~ /^-----BEGIN PGP SIGNED/) { #psuedoheaders my %pheader; +my @control_bits; # extract pseudo-headers for my $phline (@bodylines) { @@ -221,9 +222,13 @@ for my $phline (@bodylines) $fv =~ s/\s*$//; print {$debugfh} ">$fn|$fv|\n"; $fn = lc $fn; - # Don't lc owner or forwarded - $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version)$/; - $pheader{$fn} = $fv; + if ($fn =~ /^control$/) { + push @control_bits,$fv; + } else { + # Don't lc owner or forwarded + $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version)$/; + $pheader{$fn} = $fv; + } print {$debugfh} ">$fn~$fv<\n"; } -- 2.39.2