X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FTool%2Fmemcheck.pm;h=0857a3de680b4f131e19af72fb280c68c6335937;hb=5dd4ffc1370138eb1e9501f82a69f98208e4c0ff;hp=7b972461f51e611583b1fd318811dd3acbf522bf;hpb=3a312e2c6e7fdc7be70dcc8ccca604e7c62699f5;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Tool/memcheck.pm b/lib/Test/Valgrind/Tool/memcheck.pm index 7b97246..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.16 +Version 1.17 =cut -our $VERSION = '1.16'; +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.16'; +our $VERSION = '1.17'; my @kinds = qw< InvalidFree