From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 15 Aug 2009 18:10:37 +0000 (-0700)
Subject: fix comma separation of tags
X-Git-Tag: release/2.6.0~450^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0827fb9a131fb3de0e39fd3000a348955c1d0714;p=debbugs.git

fix comma separation of tags
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 34f6bbf..9fee961 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -616,7 +616,7 @@ sub set_tag {
 	my %tag_added = ();
 	my %tag_removed = ();
 	my %fixed_removed = ();
-	my @old_tags = split /\,\s*/, $data->{keywords};
+	my @old_tags = split /\,?\s+/, $data->{keywords};
 	my %tags;
 	@tags{@old_tags} = (1) x @old_tags;
 	my $reopened = 0;
@@ -658,7 +658,7 @@ sub set_tag {
 	    print {$transcript} "Unknown tag(s): ".join(', ',@bad_tags).".\n";
 	    print {$transcript} "These tags are recognized: ".join(', ',@{$config{tags}}).".\n";
 	}
-	$data->{keywords} = join(', ',keys %tags); # double check this
+	$data->{keywords} = join(' ',keys %tags);
 
 	my @changed;
 	push @changed, 'added tag(s) '.english_join([keys %tag_added]) if keys %tag_added;