From 2b21fdadc176b17b9bc05407e518cc66c1fe7b3f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 27 May 2019 16:19:30 -0700
Subject: [PATCH] add Debbugs::Bug::Tag, list of tags

---
 Debbugs/Bug/Tag.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Bug/Tag.pm b/Debbugs/Bug/Tag.pm
index a124af9..b4284e7 100644
--- a/Debbugs/Bug/Tag.pm
+++ b/Debbugs/Bug/Tag.pm
@@ -28,6 +28,7 @@ use v5.10; # for state
 use Debbugs::User;
 use List::AllUtils qw(uniq);
 use Debbugs::Config qw(:config);
+use Carp qw(croak);
 
 state $valid_tags =
     {map {($_,1)} @{$config{tags}}};
@@ -51,7 +52,12 @@ sub BUILD {
     my $self = shift;
     my $args = shift;
     if (exists $args->{keywords}) {
-        my @tags = split /[, ]/,$args->{keywords};
+        my @tags;
+        if (ref($args->{keywords})) {
+            @tags = @{$args->{keywords}}
+        } else {
+            @tags = split /[, ]/,$args->{keywords};
+        }
         return unless @tags;
         $self->_set_tag(map {($_,1)} @tags);
         delete $args->{keywords};
-- 
2.39.2