From 380f0d199a156eeb5b0f4023cf2060fee2d1a4bb Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Tue, 15 Mar 2005 21:40:41 -0800
Subject: [PATCH] [project @ 2005-03-15 21:40:41 by cjwatson] Add comments to
 explain hairy tag addition/subtraction code a bit.

---
 scripts/service.in | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/service.in b/scripts/service.in
index ac5d80a1..24e9d996 100755
--- 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};
-- 
2.39.5