X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=3adfe085309f572368c61cdb8dfefdf18fdfef3f;hb=9314897b9f4c46057ac5147c0fb4c8fc6dd466a9;hp=ab802a58936b4eed4522d444a2076ae8db9cfef9;hpb=195f0244c01e942307e13d693f196156b9263444;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm index ab802a5..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.11 +Version 1.12 =cut -our $VERSION = '1.11'; +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.