From: cjwatson <>
Date: Wed, 16 Mar 2005 05:40:41 +0000 (-0800)
Subject: [project @ 2005-03-15 21:40:41 by cjwatson]
X-Git-Tag: release/2.6.0~736
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=380f0d199a156eeb5b0f4023cf2060fee2d1a4bb;p=debbugs.git

[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 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};