X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=1e563a813bbe61258afb2629c689e21e3639d00a;hb=b53c95bc4c9013591c3051dd69d472518474d620;hp=15dbd214b64efbe155d93633329b4036bf57668d;hpb=acae7246c98a654768984b19cab378f97132d5cc;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm index 15dbd21..1e563a8 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.02 =cut -our $VERSION = '1.01'; +our $VERSION = '1.02'; =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); }