- push @$changes, { uid => $1, t => $2, action => $3 };
+ my ( $uid, $t, $action ) = ( $1, $2, $3 );
+ $actions->{$action}++;
+ next if $action_regex && $action !~ m/^($action_regex)$/;
+ push @$changes, { uid => $uid, t => $t, action => $action }
+ if $#$changes < $max;