"Suppressions for this perl stored in $def_supp"
));
}
- push @supp_args, '--suppressions=' . $_ for $self->suppressions;
+ for ($self->suppressions) {
+ next unless -e $_;
+ $self->report($self->report_class->new_diag("Using suppression file $_"));
+ push @supp_args, "--suppressions=$_";
+ }
}
pipe my $vrdr, my $vwtr or $self->_croak("pipe(\$vrdr, \$vwtr): $!");