current match is only ever one item

diff --git a/lib/Filter/Keyword/Parser.pm b/lib/Filter/Keyword/Parser.pm
index dcc8214..ce22a3b 100644 (file)
--- a/lib/Filter/Keyword/Parser.pm
+++ b/lib/Filter/Keyword/Parser.pm
@@ -45,7 +45,7 @@ sub get_next {
     if ($keyword->have_match) {
       $self->active_keyword($keyword);
       $self->short_circuit(1);
-      my $match = $self->current_match->[0];
+      my $match = $self->current_match;
       my $end = $match eq '{' ? '}'
               : $match eq '(' ? ')'
                               : '';
@@ -90,7 +90,7 @@ sub check_match {
           )
     ) {
       $keyword->install_matcher($matches->[0]);
-      $self->current_match($matches);
+      $self->current_match($matches->[0]);
       $self->short_circuit(1);
       return ($stripped, 1);
     }