X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FTool%2Fmemcheck.pm;h=0857a3de680b4f131e19af72fb280c68c6335937;hb=5dd4ffc1370138eb1e9501f82a69f98208e4c0ff;hp=b46fce1846ae62ff985806dff6cdb8fd0a07b59b;hpb=a08a925178ff4a5e8a68dc9ecc21d50c67049939;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Tool/memcheck.pm b/lib/Test/Valgrind/Tool/memcheck.pm index b46fce1..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 @@ -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