X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=3adfe085309f572368c61cdb8dfefdf18fdfef3f;hb=9314897b9f4c46057ac5147c0fb4c8fc6dd466a9;hp=48d5906636f2247348ae4f484479e245bd5a6998;hpb=9da4ddc479c87b233cc7b2b182ca83c545f57065;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm index 48d5906..3adfe08 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.12 =cut -our $VERSION = '1.02'; +our $VERSION = '1.12'; =head1 DESCRIPTION @@ -23,7 +23,7 @@ This action uses C to plan and pass or fail tests according to th use Test::Builder; -use base qw/Test::Valgrind::Action Test::Valgrind::Action::Captor/; +use base qw; =head1 METHODS @@ -158,7 +158,7 @@ sub finish { seek $fh, $self->{capture_pos}, 0; $tb->diag($_) while <$fh>; close $fh or $self->_croak('close(capture[' . fileno($fh) . "]): $!"); - delete @{$self}{qw/capture capture_pos/}; + delete @{$self}{qw}; } my $failed = 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,2011 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.