X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=67e122bed2f28975f11c6841dc93bb357c735623;hb=08860dad1f820cce06758ec4add9353a4dbc8175;hp=182f2822605d1859f09d96221a475dbfd9de33a5;hpb=1b06adb9788085e8aad3af42ea384153cd0a4fe6;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm index 182f282..67e122b 100644 --- a/lib/Test/Valgrind/Action/Test.pm +++ b/lib/Test/Valgrind/Action/Test.pm @@ -9,11 +9,11 @@ Test::Valgrind::Action::Test - Test that an analysis didn't generate any error r =head1 VERSION -Version 1.02 +Version 1.10 =cut -our $VERSION = '1.02'; +our $VERSION = '1.10'; =head1 DESCRIPTION @@ -110,10 +110,10 @@ sub abort { my $tb = Test::Builder->new; my $plan = $tb->has_plan; if (defined $plan) { - $tb->BAIL_OUT($@); + $tb->BAIL_OUT($msg); $self->{status} = 255; } else { - $tb->skip_all($@); + $tb->skip_all($msg); $self->{status} = 0; }