X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FTool%2Fmemcheck.pm;h=0857a3de680b4f131e19af72fb280c68c6335937;hb=5dd4ffc1370138eb1e9501f82a69f98208e4c0ff;hp=e3932ef079fd18f4096c04ba5ed1a7dd955c9add;hpb=5b7da288da2757d62ecaa3de0c40ea876ef9be2b;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Tool/memcheck.pm b/lib/Test/Valgrind/Tool/memcheck.pm index e3932ef..0857a3d 100644 --- a/lib/Test/Valgrind/Tool/memcheck.pm +++ b/lib/Test/Valgrind/Tool/memcheck.pm @@ -9,11 +9,11 @@ Test::Valgrind::Tool::memcheck - Run an analysis through the memcheck tool. =head1 VERSION -Version 1.15 +Version 1.17 =cut -our $VERSION = '1.15'; +our $VERSION = '1.17'; =head1 DESCRIPTION @@ -58,7 +58,7 @@ sub new { my %args = @_; - my $callers = delete $args{callers} || 12; + my $callers = delete $args{callers} || 50; $callers =~ s/\D//g; my $self = bless $class->Test::Valgrind::Tool::new(%args), $class; @@ -137,7 +137,7 @@ sub args { '--error-limit=yes', ); - push @args, '--track-origins=yes' if $sess->version ge '3.4.0' + push @args, '--track-origins=yes' if $sess->version >= '3.4.0' and not $sess->do_suppressions; push @args, $self->SUPER::args(@_); @@ -180,7 +180,7 @@ package Test::Valgrind::Tool::memcheck::Report; use base qw; -our $VERSION = '1.15'; +our $VERSION = '1.17'; my @kinds = qw< InvalidFree