+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,
+ );
+}
+