From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 27 May 2019 23:19:30 +0000 (-0700)
Subject: add Debbugs::Bug::Tag, list of tags
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=2b21fdadc176b17b9bc05407e518cc66c1fe7b3f

add Debbugs::Bug::Tag, list of tags
---

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