[project @ 2005-03-15 21:40:41 by cjwatson]

Add comments to explain hairy tag addition/subtraction code a bit.

diff --git a/scripts/service.in b/scripts/service.in
index ac5d80a1db72ec2e1765b77b06ffc0ec23cc6881..24e9d996c2f172d530784596da90ef5e0e0ba0e0 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.97 2004/10/26 13:55:26 cjwatson Exp $
+# $Id: service.in,v 1.98 2005/03/15 21:40:41 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -475,12 +475,14 @@ END
            do {
                 &addmaintainers($data);
                $data->{keywords} = '' if ($addsub eq "set");
+               # Allow removing obsolete tags.
                if ($addsub eq "sub") {
                    foreach my $t (@badtags) {
                        $data->{keywords} = join ' ', grep $_ ne $t, 
                            split ' ', $data->{keywords};
                    }
                }
+               # Now process all other additions and subtractions.
                foreach my $t (@okaytags) {
                    $data->{keywords} = join ' ', grep $_ ne $t, 
                        split ' ', $data->{keywords};