X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFilter%2FKeyword%2FFilter.pm;fp=lib%2FFilter%2FKeyword%2FFilter.pm;h=262b3b6862fb2b79676790c3812d8cf9200c2c98;hb=7bdde49d9fcbd71893e4e0c243cf01c64051778e;hp=b79160f22d817ef92111f59fea2fb7a842bf08e4;hpb=9f53fa3f860c4e167d5d83083d9c8054365b9c4d;p=p5sagit%2FFilter-Keyword.git

diff --git a/lib/Filter/Keyword/Filter.pm b/lib/Filter/Keyword/Filter.pm
index b79160f..262b3b6 100644
--- a/lib/Filter/Keyword/Filter.pm
+++ b/lib/Filter/Keyword/Filter.pm
@@ -25,14 +25,17 @@ sub _build_parser {
   );
 }
 
+our @ACTIVE_FILTERS;
 sub install {
   my ($self) = @_;
   return if $self->active;
+  push @ACTIVE_FILTERS, $self;
   $self->_set_active(1);
   filter_add($self);
   on_scope_end {
     $self->_set_active(0);
     filter_del;
+    pop @ACTIVE_FILTERS;
   };
   $self;
 }