=head1 VERSION
-Version 1.01
+Version 1.02
=cut
-our $VERSION = '1.01';
+our $VERSION = '1.02';
=head1 DESCRIPTION
+This command is the base for all C<perl>-based commands.
+It handles the suppression generation and sets the main command-line flags.
+
=cut
use Env::Sanctify ();
return $self->{suppressions_tag};
}
+sub filter {
+ my ($self, $session, $report) = @_;
+
+ return $report if $report->is_diag
+ or not $report->isa('Test::Valgrind::Report::Suppressions');
+
+ my $data = $report->data;
+ $data =~ s/^[^\r\n]*\bPerl_runops_(?:standard|debug)\b.*//ms;
+
+ $report->new(
+ id => $report->id,
+ kind => $report->kind,
+ data => $data,
+ );
+}
+
sub DESTROY {
my ($self) = @_;