support singular tag/usertag in psuedoheaders

[debbugs.git] / scripts / process

diff --git a/scripts/process b/scripts/process
index 089fa46888be91a6234ddaa0cbb80f8d18f5498d..2e0e0030909a380e7b578dadb54d943b8fd0f112 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -228,6 +228,8 @@ for my $phline (@bodylines)
     last if $phline !~ m/^([\w-]+):\s*(\S.*)/;
     my ($fn, $fv) = ($1, $2);
     $fv =~ s/\s*$//;
+    # pluralize tag/usertag
+    $fn = $fn.'s' if $fn =~ /^(?:tag|usertag)$/;
     print {$debugfh} ">$fn|$fv|\n";
     $fn = lc $fn;
     if ($fn =~ /^control$/) {