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 265bd5835b6fb2f96e671fef5895cd409b7401c4..1f40901573da4f35d1e4e2ebf532d2c563f00c3e 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -234,9 +234,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 {