X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=70991deffdfe1deaaf5cacb93ede6d6b41b0bbf5;hb=a7f76c8c630e9273e6b8c72f884e7fe012da116e;hp=49149e60f5b14539250865ee03832aa299dc9f36;hpb=abe419ac02d109283a1fe5615f5ab9d0a9a5572f;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm index 49149e6..70991de 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.01 +Version 1.12 =cut -our $VERSION = '1.01'; +our $VERSION = '1.12'; =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; } @@ -211,7 +211,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2009 Vincent Pit, all rights reserved. +Copyright 2009,2010 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.