Fix pluralising the Tag/Usertag headers

The match was on the lowercase version header names but
the lowercasing happened after the header name match.

diff --git a/scripts/process b/scripts/process
index ecc007107204efa557930b1ee2c94805663b33f3..e80c738b994049b3972cf59cbd01988eea492f09 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -233,9 +233,9 @@ for my $phline (@bodylines)
     my ($fn, $fv) = ($1, $2);
     $fv =~ s/\s*$//;
     # pluralize tag/usertag
+    $fn = lc $fn;
     $fn = $fn.'s' if $fn =~ /^(?:tag|usertag)$/;
     print {$debugfh} ">$fn|$fv|\n";
-    $fn = lc $fn;
     if ($fn =~ /^control$/) {
        push @control_bits,$fv;
     } else {