This is 1.13

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind / Action / Test.pm

diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm
index 49149e60f5b14539250865ee03832aa299dc9f36..c479a67e02fa418370c6e2ec28d06e41207bd697 100644 (file)
--- 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.13
 
 =cut
 
-our $VERSION = '1.01';
+our $VERSION = '1.13';
 
 =head1 DESCRIPTION
 
@@ -23,7 +23,7 @@ This action uses C<Test::Builder> 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<Test::Valgrind::Action Test::Valgrind::Action::Captor>;
 
 =head1 METHODS
 
@@ -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;
  }
 
@@ -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<capture capture_pos>};
  }
 
  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.