pt-kill option --filter does not work

Try to use pt-kill's option --filter. You will find it would not work.

Reason is this code:

# Apply --filter to the processlist events.
     my $filtered_proclist;
     if ( $filter_sub && $proclist && @$proclist ) {
        foreach my $proc ( @$proclist ) {
               #_d($proc->{Info});
           push @$filtered_proclist, $proc if $filter_sub->($proc);
        }
     }
     else {
        $filtered_proclist = $proclist;
     }

It works fine, but $filtered_proclist is not used anywhere else!

How to repeat:

Run queries like:

select sleep(200000) as foo
select sleep(100000)
select sleep(100000)

Then try to filter one with world foo.

~/Downloads/percona-toolkit-2.2.13/bin/pt-kill-mod --print h=127.0.0.1,P=13000,u=root,D=test --interval=1 --victims all --match-command Query --filter 'defined($event->{Info}) && $event->{Info} =~ /select.*foo/'

Suggested fix:

--- /home/sveta/Downloads/percona-toolkit-2.2.13/bin/pt-kill 2015-08-26 01:25:52.908069819 +0300
+++ /home/sveta/Downloads/percona-toolkit-2.2.13/bin/pt-kill-mod 2015-08-26 01:25:45.736069965 +0300
@@ -7041,6 +7042,8 @@
$filtered_proclist = $proclist;
}

+ $proclist = $filtered_proclist;
+
my @queries;
if ( $proclist ) {