Allow specifying 'allow_no_supp' to Test::Valgrind->import

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind.pm

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index 8da4a0a50b7da9e08c942c46b0fee842a0c3714b..9b233c73e9371553de86006a01ae275031133b19 100644 (file)
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -96,7 +96,7 @@ C<< callers => $number >>
 Specify the maximum stack depth studied when valgrind encounters an error.
 Raising this number improves granularity.
 
 Specify the maximum stack depth studied when valgrind encounters an error.
 Raising this number improves granularity.
 

-Ignored if you supply your own custom C<tool>, otherwise defaults to C<12>.
+Ignored if you supply your own custom C<tool>, otherwise defaults to C<50>.

 
 =item *
 
 
 =item *
 


@@ -124,6 +124,14 @@ Defaults to false.
 
 =item *
 
 
 =item *
 

+C<< allow_no_supp => $bool >>
+
+If true, force running the analysis even if the suppression files do not refer to any C<perl>-related symbol.
+
+Defaults to false.
+
+=item *
+

 C<< extra_supps => \@files >>
 
 Also use suppressions from C<@files> besides C<perl>'s.
 C<< extra_supps => \@files >>
 
 Also use suppressions from C<@files> besides C<perl>'s.


@@ -220,7 +228,12 @@ sub analyse {
  my $sess = eval {
   Test::Valgrind::Session->new(
    min_version => $tool->requires_version,
  my $sess = eval {
   Test::Valgrind::Session->new(
    min_version => $tool->requires_version,

-   map { $_ => delete $args{$_} } qw<regen_def_supp no_def_supp extra_supps>
+   map { $_ => delete $args{$_} } qw<
+    regen_def_supp
+    no_def_supp
+    allow_no_supp
+    extra_supps
+   >

   );
  };
  unless ($sess) {
   );
  };
  unless ($sess) {