From: Vincent Pit Date: Fri, 30 Oct 2009 17:29:05 +0000 (+0100) Subject: Report which suppressions are used by the session X-Git-Tag: v1.12~9 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2d1051a7ab93eee13b726edd0b353342e683bc2b;p=perl%2Fmodules%2FTest-Valgrind.git Report which suppressions are used by the session --- diff --git a/lib/Test/Valgrind/Session.pm b/lib/Test/Valgrind/Session.pm index b1710e2..27aa973 100644 --- a/lib/Test/Valgrind/Session.pm +++ b/lib/Test/Valgrind/Session.pm @@ -218,7 +218,11 @@ sub _run { "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): $!");