X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=ea437038640fdb841c0e4ab8ab9556aca2bd8d2d;hb=08860dad1f820cce06758ec4add9353a4dbc8175;hp=15dbd214b64efbe155d93633329b4036bf57668d;hpb=acae7246c98a654768984b19cab378f97132d5cc;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm index 15dbd21..ea43703 100644 --- a/lib/Test/Valgrind.pm +++ b/lib/Test/Valgrind.pm @@ -5,15 +5,15 @@ use warnings; =head1 NAME -Test::Valgrind - Test Perl code through valgrind. +Test::Valgrind - Generate suppressions, analyse and test any command with valgrind. =head1 VERSION -Version 1.01 +Version 1.10 =cut -our $VERSION = '1.01'; +our $VERSION = '1.10'; =head1 SYNOPSIS @@ -168,7 +168,9 @@ sub analyse { ); }; unless ($sess) { - $action->abort($sess, $@); + my $err = $@; + $err =~ s/^(Empty valgrind candidates list|No appropriate valgrind executable could be found)\s+at.*/$1/; + $action->abort($sess, $err); return $action->status($sess); }