X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FFilterBuilder.pm;h=ce9244d54c4f3e6f900faa46cc5a7cc89d0d1ff8;hp=c81e642c8d97b29e1db3413c1e73c3cd831378b8;hb=f95841752748ad1de7b0859eca1d37c8b5f46758;hpb=95dcb071e6789c2b985c36467674db31f9b35c39

diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm
index c81e642..ce9244d 100644
--- a/lib/HTML/Zoom/FilterBuilder.pm
+++ b/lib/HTML/Zoom/FilterBuilder.pm
@@ -86,13 +86,15 @@ sub remove_from_attribute {
   my $self = shift;
   my $attr = $self->_parse_attribute_args(@_);
   sub {
+
     my $a = (my $evt = $_[0])->{attrs};
+    my @kupd = grep {exists $a->{$_}} keys %$attr;
     +{ %$evt, raw => undef, raw_attrs => undef,
        attrs => {
          %$a,
          #TODO needs to support multiple removes
          map { my $tar = $_; $_ => join ' ', 
-          map {$attr->{$tar} ne $_} split ' ', $a->{$_} } keys %$attr
+          map {$attr->{$tar} ne $_} split ' ', $a->{$_} } @kupd
       },
     }
   };