X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=a1f2e3231e3a77f4f4ef80ac8834d58140789e18;hp=5e95a9fffb87ed30cc37ce0752eba1cbf54b7fae;hb=b62067c81672ff40a3fcda54cb498feae33b752f;hpb=acdd3b78b5efedcd0b980acb20e3137354325325

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index 5e95a9f..a1f2e32 100644
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -108,11 +108,11 @@ Ignored if you supply your own custom C<action>, otherwise defaults to false.
 
 =item *
 
-C<< extra_supps => \@files >>
+C<< regen_def_supp => $bool >>
 
-Also use suppressions from C<@files> besides C<perl>'s.
+If true, forcefully regenerate the default suppression file.
 
-Defaults to empty.
+Defaults to false.
 
 =item *
 
@@ -122,6 +122,14 @@ If true, do not use the default suppression file.
 
 Defaults to false.
 
+=item *
+
+C<< extra_supps => \@files >>
+
+Also use suppressions from C<@files> besides C<perl>'s.
+
+Defaults to empty.
+
 =back
 
 =cut
@@ -168,7 +176,7 @@ sub analyse {
  my $sess = eval {
   Test::Valgrind::Session->new(
    min_version => $tool->requires_version,
-   map { $_ => delete $args{$_} } qw<extra_supps no_def_supp>
+   map { $_ => delete $args{$_} } qw<regen_def_supp no_def_supp extra_supps>
   );
  };
  unless ($sess) {