From 0827fb9a131fb3de0e39fd3000a348955c1d0714 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 15 Aug 2009 11:10:37 -0700
Subject: [PATCH] fix comma separation of tags

---
 Debbugs/Control.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.39.2