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

diff --git a/Debbugs/Bug/Tag.pm b/Debbugs/Bug/Tag.pm
index a124af9f9710ef0313c050166d845a98fbadaa11..b4284e71baf916c462c48599f530c4d59abc1da6 100644 (file)
--- 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};